[Open64-devel] r4114 - trunk/osprey/common/util

[s***@open64.net]

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?
#