diff options
Diffstat (limited to 'lib')
| -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; } |