diff options
Diffstat (limited to 'img/lib/IM/Scan.pm')
| -rw-r--r-- | img/lib/IM/Scan.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/img/lib/IM/Scan.pm b/img/lib/IM/Scan.pm index c3891678..5bea594b 100644 --- a/img/lib/IM/Scan.pm +++ b/img/lib/IM/Scan.pm @@ -5,10 +5,10 @@ ### ### Author: Internet Message Group <img@mew.org> ### Created: Apr 23, 1997 -### Revised: Apr 23, 2007 +### Revised: May 25, 2011 ### -my $PM_VERSION = "IM::Scan.pm version 20100215(IM150)"; +my $PM_VERSION = "IM::Scan.pm version 20161010(IM153)"; package IM::Scan; require 5.003; @@ -509,7 +509,7 @@ sub friendly_addr($$) { my($a, $f, $p); while (($a, $addr, $f) = &fetch_addr($addr, 1), $a ne '') { $a =~ s/\/[^@]*//; - if (defined(%petnames) && $petnames{lc($a)}) { + if (%petnames && $petnames{lc($a)}) { $p = $petnames{lc($a)}; } elsif (!$need_addr && $f) { $p = &mime_decode_string($f); |