This is my patch patch.0a for perl5.000.

[p5sagit/p5-mst-13.2.git] / lib / getopts.pl

diff --git a/lib/getopts.pl b/lib/getopts.pl
index 6590918..a0818d1 100644 (file)
--- 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;";