diff options
| author | Larry Wall <lwall@netlabs.com> | 1991-11-05 06:28:23 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1991-11-05 06:28:23 +0000 |
| commit | 45d8adaa83210dbf286f70ae01d99f534e6c8052 (patch) | |
| tree | fe8eafd2432c8a10e92f9f6e093936c682c83b63 /lib/newgetopt.pl | |
| parent | 99b89507a1fb507cf2635775ed834be00409c207 (diff) | |
| download | perl-45d8adaa83210dbf286f70ae01d99f534e6c8052.tar.gz | |
perl 4.0 patch 15: patch #11, continued
See patch #11.
Diffstat (limited to 'lib/newgetopt.pl')
| -rw-r--r-- | lib/newgetopt.pl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/newgetopt.pl b/lib/newgetopt.pl index 441213a538..8782428961 100644 --- a/lib/newgetopt.pl +++ b/lib/newgetopt.pl @@ -1,11 +1,11 @@ # newgetopt.pl -- new options parsing -# SCCS Status : @(#)@ newgetopt.pl 1.7 +# SCCS Status : @(#)@ newgetopt.pl 1.8 # Author : Johan Vromans # Created On : Tue Sep 11 15:00:12 1990 # Last Modified By: Johan Vromans -# Last Modified On: Sun Oct 14 14:35:36 1990 -# Update Count : 34 +# Last Modified On: Thu Sep 26 20:10:41 1991 +# Update Count : 35 # Status : Okay # This package implements a new getopt function. This function adheres @@ -139,6 +139,9 @@ sub main'NGetOpt { print STDERR ("Option ", $opt, " requires an argument\n"); $error++; } + if ( $mand eq ":" ) { + $arg = $type eq "s" ? "" : 0; + } next; } |