This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #74038] c2ph (and pstruct) use the deprecated 'getopts.pl' library
authorZefram <zefram@fysh.org>
Wed, 14 Apr 2010 12:05:57 +0000 (14:05 +0200)
committerRafael Garcia-Suarez <rgs@consttype.org>
Wed, 14 Apr 2010 12:05:57 +0000 (14:05 +0200)
utils/c2ph.PL

index 39545e3..9450400 100644 (file)
@@ -369,13 +369,13 @@ $DEFINES = '';
 
 $perl++ if $0 =~ m#/?c2ph$#;
 
 
 $perl++ if $0 =~ m#/?c2ph$#;
 
-require 'getopts.pl';
+use Getopt::Std qw(getopts);
 
 use File::Temp 'tempdir';
 
 eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_]+=)(.*)/ && shift;
 
 
 use File::Temp 'tempdir';
 
 eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_]+=)(.*)/ && shift;
 
-&Getopts('aixdpvtnws:') || &usage(0);
+getopts('aixdpvtnws:') || &usage(0);
 
 $opt_d && $debug++;
 $opt_t && $trace++;
 
 $opt_d && $debug++;
 $opt_t && $trace++;