Lokale Variablen auch als lokal deklarieren.

diff --git a/SL/WH.pm b/SL/WH.pm
index 713ca43..70f1037 100644 (file)
--- a/SL/WH.pm
+++ b/SL/WH.pm
@@ -98,7 +98,7 @@ sub transfer {
 
     push @values, "$transfer->{comment}";
 
-    $qty = $transfer->{qty};
+    my $qty = $transfer->{qty};
 
     if ($transfer->{unit}) {
       my $partunit = $partunits{$transfer->{parts_id}};