diff options
Diffstat (limited to 'gnu/usr.bin/perl/lib/abbrev.pl')
| -rw-r--r-- | gnu/usr.bin/perl/lib/abbrev.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/lib/abbrev.pl b/gnu/usr.bin/perl/lib/abbrev.pl index c233d4af7e6..62975e66f32 100644 --- a/gnu/usr.bin/perl/lib/abbrev.pl +++ b/gnu/usr.bin/perl/lib/abbrev.pl @@ -17,7 +17,7 @@ sub main'abbrev { $len = 1; foreach $cmp (@cmp) { next if $cmp eq $name; - while (substr($cmp,0,$len) eq $abbrev) { + while (@extra && substr($cmp,0,$len) eq $abbrev) { $abbrev .= shift(@extra); ++$len; } |