diff options
| author | Peter Scott <Peter@PSDT.com> | 2003-03-28 08:34:47 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-01 15:56:27 +0000 |
| commit | df26a7db8f2a7fec12d403bcefa0501353e16991 (patch) | |
| tree | 071c6650a737a26bc285fbcfa13f8c6d6b7647a9 /lib/Text/Abbrev.pm | |
| parent | d002699eadfced2538773fac7c19592455e9d630 (diff) | |
| download | perl-df26a7db8f2a7fec12d403bcefa0501353e16991.tar.gz | |
Text::Abbrev warnings safe
Message-id: <5.2.0.9.2.20030328161002.00b45f08@shell2.webquarry.com>
p4raw-id: //depot/perl@19114
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; |