| Subject: | Wrong report on ambiguous options |
use Getopt::Long;
@ARGV = qw(--no-);
GetOptions(
"no-a" => sub { print "a\n"; },
'no-b|no-c' => sub { print "b or c\n"; },
);
prints: Option no- is ambiguous (no-a, no-b, no-b)
should be: Option no- is ambiguous (no-a, no-b, no-c)
use Getopt::Long;
@ARGV = qw(--no-);
GetOptions(
"no-a" => sub { print "a\n"; },
'no-b|no-c' => sub { print "b or c\n"; },
);