X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FOP.pm;h=43be29bf4adccc0c6444a390ab99e0ff9027b503;hb=f6e8c87bc23cb8b31a554ce89af51d2c3b0a5efd;hp=e2088022ca583e604f063ee4a5ccc6cc1d9cffb5;hpb=0484d9e05fcfb8bd52a850010bec25d6cda4a28e;p=kivitendo-erp.git

diff --git a/SL/OP.pm b/SL/OP.pm
index e2088022c..43be29bf4 100644
--- a/SL/OP.pm
+++ b/SL/OP.pm
@@ -36,6 +36,8 @@ package OP;
 
 use SL::DBUtils;
 
+use strict;
+
 sub overpayment {
   $main::lxdebug->enter_sub();
 
@@ -70,7 +72,7 @@ sub overpayment {
   do_query($form, $dbh, $query, @values);
 
   # add AR/AP
-  ($accno) = split /--/, $form->{ $form->{ARAP} };
+  my ($accno) = split /--/, $form->{ $form->{ARAP} };
 
   $query =
     qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount) | .