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

Merge pull request #177 from jaredj/address-test-warning

Browse Source 
Avoid warnings for Qpsmtpd::Address->new(undef)
This commit is contained in:
Matt Simerson 2014-12-30 12:29:24 -08:00
commit 101bfa7bbd
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;
} }