X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_credit.pm;h=ba279a26c2d74be3828b2e8d9edec8ea2ec95b75;hp=05d961c3fd306f81662adc6b4122c53ed73484d4;hb=8a7cc604b89756a868dd3757b0b8148c588f887c;hpb=942431fdcb3803b7ef98b1be8c4dc188e1a4b5aa

diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm
index 05d961c3f..ba279a26c 100644
--- a/FS/FS/cust_credit.pm
+++ b/FS/FS/cust_credit.pm
@@ -717,7 +717,7 @@ sub credit_lineitems {
   my %cust_bill_pkg = ();
   my %cust_credit_bill_pkg = ();
   my %taxlisthash = ();
-  my %unapplied_payments; #invoice numbers, and then billpaynums
+  my %unapplied_payments = (); #invoice numbers, and then billpaynums
   foreach my $billpkgnum ( @{$arg{billpkgnums}} ) {
     my $setuprecur = shift @{$arg{setuprecurs}};
     my $amount = shift @{$arg{amounts}};