diff -Nur smeserver-wbl-0.1.0.old/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/wbl.pm smeserver-wbl-0.1.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/wbl.pm
--- smeserver-wbl-0.1.0.old/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/wbl.pm	2014-04-08 22:25:04.450108424 +0200
+++ smeserver-wbl-0.1.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/wbl.pm	2014-04-08 22:38:46.104430939 +0200
@@ -190,14 +190,14 @@
 	}
 
     # qmail badmailfrom
-    my %list = $wdb->get('badmailfrom')->props;
-    my $parameter = "";
-    my $value = "";
-    while (($parameter,$value) = each(%list)) {
-        if ($parameter eq "type") {next;}
+    my %list_bis = $wdb->get('badmailfrom')->props;
+    my $parameter_bis = "";
+    my $value_bis = "";
+    while (($parameter_bis,$value_bis) = each(%list_bis)) {
+        if ($parameter_bis eq "type") {next;}
 
-        if ($value eq "Black") {
-            $wdb->get_prop_and_delete('badmailfrom', "$parameter");
+        if ($value_bis eq "Black") {
+            $wdb->get_prop_and_delete('badmailfrom', "$parameter_bis");
         }
     }
 
@@ -247,14 +247,14 @@
 	}
 
     # qpsmtpd whitelisthelo
-    my %list = $wdb->get('whitelisthelo')->props;
-    my $parameter = "";
-    my $value = "";
-    while (($parameter,$value) = each(%list)) {
-        if ($parameter eq "type") {next;}
+    my %list_bis = $wdb->get('whitelisthelo')->props;
+    my $parameter_bis = "";
+    my $value_bis = "";
+    while (($parameter_bis,$value_bis) = each(%list_bis)) {
+        if ($parameter_bis eq "type") {next;}
 
-        if ($value eq "White") {
-            $wdb->get_prop_and_delete('whitelisthelo', "$parameter");
+        if ($value_bis eq "White") {
+            $wdb->get_prop_and_delete('whitelisthelo', "$parameter_bis");
         }
     }
 
@@ -267,14 +267,14 @@
 	}
 
     # qpsmtpd whitelistsenders
-    my %list = $wdb->get('whitelistsenders')->props;
-    my $parameter = "";
-    my $value = "";
-    while (($parameter,$value) = each(%list)) {
-        if ($parameter eq "type") {next;}
+    my %list_ter = $wdb->get('whitelistsenders')->props;
+    my $parameter_ter = "";
+    my $value_ter = "";
+    while (($parameter_ter,$value_ter) = each(%list_ter)) {
+        if ($parameter_ter eq "type") {next;}
 
-        if ($value eq "White") {
-            $wdb->get_prop_and_delete('whitelistsenders', "$parameter");
+        if ($value_ter eq "White") {
+            $wdb->get_prop_and_delete('whitelistsenders', "$parameter_ter");
         }
     }
 
@@ -287,14 +287,14 @@
 	}
 
     # spamassassin whitelist_from
-    my %list = $sdb->get('wbl.global')->props;
-    my $parameter = "";
-    my $value = "";
-    while (($parameter,$value) = each(%list)) {
-        if ($parameter eq "type") {next;}
+    my %list_four = $sdb->get('wbl.global')->props;
+    my $parameter_four = "";
+    my $value_four = "";
+    while (($parameter_four,$value_four) = each(%list_four)) {
+        if ($parameter_four eq "type") {next;}
 
-        if ($value eq "White") {
-            $sdb->get_prop_and_delete('wbl.global', "$parameter");
+        if ($value_four eq "White") {
+            $sdb->get_prop_and_delete('wbl.global', "$parameter_four");
         }
     }