From 3021bd5f500d092062fb22f443f40e44941fbd23 Mon Sep 17 00:00:00 2001 From: Tom Hughes Date: Mon, 23 Dec 2013 14:15:30 +0000 Subject: [PATCH] Make deny lists work --- bin/mkgeo | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bin/mkgeo b/bin/mkgeo index 40527e2..bf5ca4d 100755 --- 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"; } -- 2.43.2