Commit 31c5b94f authored by Nigel Kukard's avatar Nigel Kukard
Browse files

Small code cleanup

parent 2aa37700
...@@ -519,10 +519,11 @@ sub emailAddressMatches ...@@ -519,10 +519,11 @@ sub emailAddressMatches
{ {
my ($email,$template) = @_; my ($email,$template) = @_;
my $match = 0;
# Sender may be null # Sender may be blank, in the case of <>
return $match if ($email eq ""); return 0 if ($email eq "");
my $match = 0;
# Strip email addy # Strip email addy
my ($email_user,$email_domain) = ($email =~ /^(\S+)@(\S+)$/); my ($email_user,$email_domain) = ($email =~ /^(\S+)@(\S+)$/);
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment