diff options
| author | Zefram <zefram@fysh.org> | 2010-04-14 14:05:57 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-04-14 14:05:57 +0200 |
| commit | fb5f65e1f0e20e30098e798802868d892bd5086f (patch) | |
| tree | dd0e9d2c244e617b95008844875881f9c663f6fa /utils | |
| parent | 983cf2d83de228bc3435cafbd5a0a6171f3eaa85 (diff) | |
| download | perl-fb5f65e1f0e20e30098e798802868d892bd5086f.tar.gz | |
[perl #74038] c2ph (and pstruct) use the deprecated 'getopts.pl' library
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/c2ph.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/c2ph.PL b/utils/c2ph.PL index 39545e3f8a..9450400fe4 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++; |