Author: dcoakley
Date: 2014-08-21 22:53:24 -0400 (Thu, 21 Aug 2014)
New Revision: 4114
Modified:
trunk/osprey/common/util/gen_x_set
Log:
Update gen_x_set to use modern Perl.
Approved by: Jian-Xin
Modified: trunk/osprey/common/util/gen_x_set
===================================================================
--- trunk/osprey/common/util/gen_x_set 2014-07-09 19:13:55 UTC (rev 4113)
+++ trunk/osprey/common/util/gen_x_set 2014-08-22 02:53:24 UTC (rev 4114)
@@ -111,7 +111,7 @@
### ====================================================================
### ====================================================================
-require "getopts.pl";
+use Getopt::Std;
# Look for the templates in the same directory as this script resides.
#
@@ -119,7 +119,7 @@
$utildir =~ s=/[^/]*$==;
$utildir = '.' if ( $utildir eq $0 );
-&Getopts("fs");
+getopts("fs");
# Macro or functional interface?
#
------------------------------------------------------------------------------
Slashdot TV.
Video for Nerds. Stuff that matters.
http://tv.slashdot.org/
_______________________________________________
Open64-devel mailing list
Open64-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/open64-devel
