Merge pull request #177 from jaredj/address-test-warning
Avoid warnings for Qpsmtpd::Address->new(undef)
This commit is contained in:
commit
101bfa7bbd
@ -56,7 +56,10 @@ use overload (
|
||||
sub new {
|
||||
my ($class, $user, $host) = @_;
|
||||
my $self = {};
|
||||
if ($user =~ /^<(.*)>$/) {
|
||||
if (! defined $user) {
|
||||
# Do nothing
|
||||
}
|
||||
elsif ($user =~ /^<(.*)>$/) {
|
||||
($user, $host) = $class->canonify($user);
|
||||
return if !defined $user;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user