diff options
Diffstat (limited to 'AuthorizeNet.pm')
| -rw-r--r-- | AuthorizeNet.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm index 569d88d..8d67a90 100644 --- a/AuthorizeNet.pm +++ b/AuthorizeNet.pm @@ -1,6 +1,6 @@ package Business::OnlinePayment::AuthorizeNet; -# $Id: AuthorizeNet.pm,v 1.9 2002-04-24 02:39:38 ivan Exp $ +# $Id: AuthorizeNet.pm,v 1.10 2002-04-24 05:02:54 ivan Exp $ use strict; use Business::OnlinePayment; @@ -139,6 +139,8 @@ sub submit { my $p = $self->port(); my $t = $self->path(); my($page,$server_response,%headers) = post_https($s,$p,$t,'',$pd); + #escape NULL (binary 0x00) values + $page =~ s/\x00/\^0/g; my $csv = new Text::CSV_XS(); $csv->parse($page); @@ -155,7 +157,7 @@ sub submit { $self->result_code($col[2]); $self->error_message($col[3]); unless ( $self->result_code() ) { #additional logging information - $page =~ s/\x00/\^0/g; + #$page =~ s/\x00/\^0/g; $self->error_message($col[3]. " DEBUG: No x_response_code from server, ". "(HTTPS response: $server_response) ". |