From c87ba417b940d5a42653f10654310ce40eafe87a Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Mon, 5 Dec 2011 12:13:10 +0100 Subject: [PATCH] Strictfehler in cp.pl korrigiert. --- bin/mozilla/cp.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/bin/mozilla/cp.pl b/bin/mozilla/cp.pl index c6910ba85..ee4918131 100644 --- a/bin/mozilla/cp.pl +++ b/bin/mozilla/cp.pl @@ -442,10 +442,10 @@ sub check_form { if ($form->parse_amount(\%myconfig, $form->{"paid_$i"})) { $amount -= $form->parse_amount(\%myconfig, $form->{"paid_$i"}); - push(@{ $form->{paid} }, $form->{"paid_$i"}); - push(@{ $form->{due} }, $form->{"due_$i"}); - push(@{ $form->{invnumber} }, $form->{"invnumber_$i"}); - push(@{ $form->{invdate} }, $form->{"transdate_$i"}); + push(@{ $form->{paid} ||= [] }, $form->{"paid_$i"}); + push(@{ $form->{due} ||= [] }, $form->{"due_$i"}); + push(@{ $form->{invnumber} ||= [] }, $form->{"invnumber_$i"}); + push(@{ $form->{invdate} ||= [] }, $form->{"transdate_$i"}); } } -- 2.20.1