diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-02-28 21:55:09 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-02-28 21:55:09 +0000 |
| commit | ac58e20f744208e9bff2115708a2f1c4e2e2175f (patch) | |
| tree | 1610ffeb1ed9dc24b5bf864c012a6d9fe7ac6720 /lib/getopt.pl | |
| parent | afd9f252e30d37007c653bd21680f0b5f6c32608 (diff) | |
| download | perl-ac58e20f744208e9bff2115708a2f1c4e2e2175f.tar.gz | |
perl 3.0 patch #11 patch #9, continued
See patch #9.
Diffstat (limited to 'lib/getopt.pl')
| -rw-r--r-- | lib/getopt.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/getopt.pl b/lib/getopt.pl index b85b643e22..93acafc5bf 100644 --- a/lib/getopt.pl +++ b/lib/getopt.pl @@ -1,4 +1,4 @@ -;# $Header: getopt.pl,v 3.0 89/10/18 15:19:26 lwall Locked $ +;# $Header: getopt.pl,v 3.0.1.1 90/02/28 17:41:59 lwall Locked $ ;# Process single-character switches with switch clustering. Pass one argument ;# which is a string containing all switches that take an argument. For each @@ -12,6 +12,7 @@ sub Getopt { local($argumentative) = @_; local($_,$first,$rest); + local($[) = 0; while (($_ = $ARGV[0]) =~ /^-(.)(.*)/) { ($first,$rest) = ($1,$2); |