From 86c903255c2d6bdef69b7a63be9d059292c905e6 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 26 Feb 2013 02:21:27 -0800
Subject: [PATCH] mystery "broken payment application" error, RT#21571

---
 FS/FS/cust_credit.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm
index 560be20b4..2dfd081c8 100644
--- a/FS/FS/cust_credit.pm
+++ b/FS/FS/cust_credit.pm
@@ -717,8 +717,7 @@ sub credit_lineitems {
   my %cust_credit_bill = ();
   my %cust_bill_pkg = ();
   my %cust_credit_bill_pkg = ();
-  # except here they're billpaynums
-  my %unapplied_payments;
+  my %unapplied_payments = (); # except here they're billpaynums
   foreach my $billpkgnum ( @{$arg{billpkgnums}} ) {
     my $setuprecur = shift @{$arg{setuprecurs}};
     my $amount = shift @{$arg{amounts}};
-- 
2.20.1