diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1989-11-10 16:20:25 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1989-11-10 16:20:25 +0000 |
| commit | bf38876a182e0df9dd73362f56cf0ab8b43aa789 (patch) | |
| tree | 0c8c37dbaeeadb7549ca7b6d3f2b19d92896f9bb /lib | |
| parent | 91407755d9b894ac1239c4fafe586e52138db38d (diff) | |
| download | perl-bf38876a182e0df9dd73362f56cf0ab8b43aa789.tar.gz | |
perl 3.0 patch #3 Patch #2 continued
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/getopts.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/getopts.pl b/lib/getopts.pl index 926988516e..7effafa195 100644 --- a/lib/getopts.pl +++ b/lib/getopts.pl @@ -14,16 +14,16 @@ sub Getopts { $pos = index($argumentative,$first); if($pos >= $[) { if($args[$pos+1] eq ':') { - shift; + shift(@ARGV); if($rest eq '') { - $rest = shift; + $rest = shift(@ARGV); } eval "\$opt_$first = \$rest;"; } else { eval "\$opt_$first = 1"; if($rest eq '') { - shift; + shift(@ARGV); } else { $ARGV[0] = "-$rest"; @@ -36,7 +36,7 @@ sub Getopts { $ARGV[0] = "-$rest"; } else { - shift; + shift(@ARGV); } } } |