diff --git a/lib/Qpsmtpd/Address.pm b/lib/Qpsmtpd/Address.pm index 939a253..6c748e6 100644 --- a/lib/Qpsmtpd/Address.pm +++ b/lib/Qpsmtpd/Address.pm @@ -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; }