pmgpolicy: avoid warning about uninitialized value

[pmg-api.git] / bin / pmgpolicy

diff --git a/bin/pmgpolicy b/bin/pmgpolicy
index 7dc1b40b1f8f15b7a3b7e3c7b9502fec0920b07a..316f03628400c7f5aed305f3eedc475c91cfe368 100755 (executable)
--- a/bin/pmgpolicy
+++ b/bin/pmgpolicy
@@ -545,7 +545,9 @@ sub greylist_value {
        return 'dunno';
     }
 
-    my ($net, $host) = $ip =~ m/(\d+\.\d+\.\d+)\.(\d+)/;
+    my ($net, $host) = $ip =~ m/(\d+\.\d+\.\d+)\.(\d+)/; # IPv4 for now
+    return 'dunno' if !defined($net);
+
     my $spf_header;
 
     if ((!$opt_testmode && $self->{use_spf}) ||