Make deny lists work
authorTom Hughes <tom@compton.nu>
Mon, 23 Dec 2013 14:15:30 +0000 (14:15 +0000)
committerTom Hughes <tom@compton.nu>
Mon, 23 Dec 2013 14:15:30 +0000 (14:15 +0000)
bin/mkgeo

index 40527e2d0e45c0f4e378496d349f033e4e13eeee..bf5ca4d6ba578767694b8da147f255c8b9ca43f7 100755 (executable)
--- a/bin/mkgeo
+++ b/bin/mkgeo
@@ -293,13 +293,13 @@ sub match_origin
     }
     elsif ($cluster->{denied} &&
            $cluster->{denied}->{countries} &&
-           grep { $_ eq $origin->{country} } @{$cluster->{preferred}->{countries}})
+           grep { $_ eq $origin->{country} } @{$cluster->{denied}->{countries}})
     {
         $match = "denied";
     }
     elsif ($cluster->{denied} &&
            $cluster->{denied}->{continents} &&
-           grep { $_ eq $origin->{continent} } @{$cluster->{preferred}->{continents}})
+           grep { $_ eq $origin->{continent} } @{$cluster->{denied}->{continents}})
     {
         $match = "denied";
     }