Bug #81129 for Getopt-Tabular: Inadvertant ambiguous option

In certain cases, Getopt::Tabular will say that an option is ambiguous even when there is an exact match in the options table. Code: use Getopt::Tabular; use strict; my $numberA = 1; my $numberB = 0; my $dash_n = 0; my @argtbl = ( ["-numberA", "const", 0, \$numberA, "set the foo option"], ["-numberB", "const", 0, \$numberB, "set the bar option"], ["-n", "const", 1, \$dash_n], ); &GetOptions (\@argtbl, \@ARGV); When this code is run with the "-n" option, it will complain: Show quoted text
ambiguous option: -n I fixed this bug by modifying the match_abbreviation function as follows: sub match_abbreviation { my ($s, $words, $err_format) = @_; my ($match, $ambiguous); my $word; foreach $word (@$words) { # If $s is a prefix of $word, it's at least an approximate match, # so try to do better next unless ($s eq substr ($word, 0, length ($s))); # We have an exact match, so return it now return $word if ($s eq $word); # We have an approx. match, and already had one before if($match){ $ambiguous = 1; } $match = $word; } if ($ambiguous) { &SetError ("bad_option", sprintf ("$err_format", "ambiguous", $s)); return 0; } &SetError ("bad_option", sprintf ("$err_format", "unknown", $s)) if !$match; $match; } Thanks, Matt