diff options
author | ivan <ivan> | 2007-02-05 16:01:21 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-02-05 16:01:21 +0000 |
commit | 265009b7aa3776d36bdd597540b6d21b0199ac2d (patch) | |
tree | bce1c7a586b920dcb71cf42003efe935c652914e | |
parent | d7419fc59cf19d85d511be8a95c615278462b316 (diff) |
fix param passing
-rw-r--r-- | FS/FS/pay_batch.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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'}; |