From 265009b7aa3776d36bdd597540b6d21b0199ac2d Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 5 Feb 2007 16:01:21 +0000
Subject: [PATCH] fix param passing

---
 FS/FS/pay_batch.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/pay_batch.pm b/FS/FS/pay_batch.pm
index 6e15b272c..54c370b7d 100644
--- a/FS/FS/pay_batch.pm
+++ b/FS/FS/pay_batch.pm
@@ -152,7 +152,7 @@ I<format> - "csv-td_canada_trust-merchant_pc_batch", "csv-chase_canada-E-xactBat
 sub import_results {
   my $self = shift;
 
-  my $param = @_;
+  my $param = ref($_[0]) ? shift : { @_ };
   my $fh = $param->{'filehandle'};
   my $format = $param->{'format'};
 
-- 
2.11.0