projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Fix concise-xs.t following the changes to B::Deparse.
[p5sagit/p5-mst-13.2.git]
/
lib
/
getopts.pl
diff --git
a/lib/getopts.pl
b/lib/getopts.pl
index
4a50b8f
..
e30820a
100644
(file)
--- a/
lib/getopts.pl
+++ b/
lib/getopts.pl
@@
-31,7
+31,7
@@
sub Getopts {
}
eval "
push(\@opt_$first, \$rest);
- if(\$opt_$first eq '') {
+ if (!defined \$opt_$first or \$opt_$first eq '') {
\$opt_$first = \$rest;
}
else {