diff options
| author | Larry Wall <lwall@netlabs.com> | 1992-06-08 04:52:56 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1992-06-08 04:52:56 +0000 |
| commit | 8adcabd8d9cf3c71e660c45cb7165ae4694308d4 (patch) | |
| tree | 5b9373a201cf028f5311512e532230c563057c07 /lib/getopts.pl | |
| parent | 1d4d38c37d3c694b3c50c8fd57f5afcdb93c1ffe (diff) | |
| download | perl-8adcabd8d9cf3c71e660c45cb7165ae4694308d4.tar.gz | |
perl 4.0 patch 25: patch #20, continued
See patch #20.
Diffstat (limited to 'lib/getopts.pl')
| -rw-r--r-- | lib/getopts.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/getopts.pl b/lib/getopts.pl index 6590918016..a0818d1e3a 100644 --- a/lib/getopts.pl +++ b/lib/getopts.pl @@ -18,6 +18,7 @@ sub Getopts { if($args[$pos+1] eq ':') { shift(@ARGV); if($rest eq '') { + ++$errs unless @ARGV; $rest = shift(@ARGV); } eval "\$opt_$first = \$rest;"; |