diff options
Diffstat (limited to 'lib/Text/Abbrev.pm')
| -rw-r--r-- | lib/Text/Abbrev.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Text/Abbrev.pm b/lib/Text/Abbrev.pm index 08143fea8f..d7feedc30d 100644 --- a/lib/Text/Abbrev.pm +++ b/lib/Text/Abbrev.pm @@ -43,6 +43,7 @@ The values are the original list elements. sub abbrev { my ($word, $hashref, $glob, %table, $returnvoid); + @_ or return; # So we don't autovivify onto @_ and trigger warning if (ref($_[0])) { # hash reference preferably $hashref = shift; $returnvoid = 1; |