byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Avoid warnings for Qpsmtpd::Address->new(undef)

Browse Source
This commit is contained in:
Jared Johnson 2014-12-30 13:37:14 -06:00
parent 562fa951d0
commit ba659461b5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/Qpsmtpd/Address.pm
View File

@ -56,7 +56,10 @@ use overload (
sub new { sub new {
my ($class, $user, $host) = @_; my ($class, $user, $host) = @_;
my $self = {}; my $self = {};
if ($user =~ /^<(.*)>$/) { if (! defined $user) {
# Do nothing
}
elsif ($user =~ /^<(.*)>$/) {
($user, $host) = $class->canonify($user); ($user, $host) = $class->canonify($user);
return if !defined $user; return if !defined $user;
} }