return wantarray?@{$_parsedaddrs{$addr}}:$_parsedaddrs{$addr}[0]
if exists $_parsedaddrs{$addr};
{
- no warnings;
+ # don't display the warnings from Mail::Address->parse
+ local $SIG{__WARN__} = sub { };
@{$_parsedaddrs{$addr}} = Mail::Address->parse($addr);
}
return wantarray?@{$_parsedaddrs{$addr}}:$_parsedaddrs{$addr}[0];
=cut
sub quit {
- print $DEBUG_FH "quitting >$_[0]<\n" if $DEBUG;
+ print {$DEBUG_FH} "quitting >$_[0]<\n" if $DEBUG;
my ($u);
while ($u= $cleanups[$#cleanups]) { &$u; }
die "*** $_[0]\n";