avoid warning about uninitialized value

diff --git a/PMG/RuleDB/Domain.pm b/PMG/RuleDB/Domain.pm
index 48792d10aa557a4ac995723a91f36a6135ad8cf6..c3530eacbdb71f7be0d430e22f713f01689131bd 100644 (file)
--- a/PMG/RuleDB/Domain.pm
+++ b/PMG/RuleDB/Domain.pm
@@ -33,6 +33,8 @@ sub who_match {
 
     $addr =~ m/^.+@(.+)$/;
 
+    return undef if !defined($1);
+
     return (lc ($1) eq lc ($self->address));
 }