In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/fb5f65e1f0e20e30098e798802868d892bd5086f?hp=983cf2d83de228bc3435cafbd5a0a6171f3eaa85>
- Log -----------------------------------------------------------------
commit fb5f65e1f0e20e30098e798802868d892bd5086f
Author: Zefram <zef...@fysh.org>
Date: Wed Apr 14 14:05:57 2010 +0200
[perl #74038] c2ph (and pstruct) use the deprecated 'getopts.pl' library
-----------------------------------------------------------------------
Summary of changes:
utils/c2ph.PL | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/utils/c2ph.PL b/utils/c2ph.PL
index 39545e3..9450400 100644
--- a/utils/c2ph.PL
+++ b/utils/c2ph.PL
@@ -369,13 +369,13 @@ $DEFINES = '';
$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;
-&Getopts('aixdpvtnws:') || &usage(0);
+getopts('aixdpvtnws:') || &usage(0);
$opt_d && $debug++;
$opt_t && $trace++;
--
Perl5 Master Repository
