--- RBLCLient-0.5/spamalyze~	2010-11-29 17:41:58.000000000 +0000

+++ RBLCLient-0.5/spamalyze	2014-01-18 16:52:02.411342869 +0000

@@ -105,7 +105,7 @@

         }

     }

     return "x";

-    foreach my $registry qw( arin apnic ripe ){

+    foreach my $registry (qw( arin apnic ripe )){

         my $res = `whois $addr\@whois.arin.net`;

         return $1 if $res =~ /Netblock: (.+)/;

     }