--- 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: (.+)/;
     }