diff options
Diffstat (limited to 'AuthorizeNet.pm')
| -rw-r--r-- | AuthorizeNet.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm index ea8869e..54f1514 100644 --- a/AuthorizeNet.pm +++ b/AuthorizeNet.pm @@ -12,7 +12,7 @@ require Exporter; @ISA = qw(Exporter Business::OnlinePayment); @EXPORT = qw(); @EXPORT_OK = qw(); -$VERSION = '3.16'; +$VERSION = '3.17'; sub set_defaults { my $self = shift; @@ -209,6 +209,9 @@ sub submit { #escape NULL (binary 0x00) values $page =~ s/\x00/\^0/g; + #trim 'ip_addr="1.2.3.4"' added by eProcessingNetwork Authorize.Net compat + $page =~ s/,ip_addr="[\d\.]+"$//; + my $csv = new Text::CSV_XS({ 'binary'=>1 }); $csv->parse($page); my @col = $csv->fields(); |