From: ivan <ivan>
Date: Wed, 24 Apr 2002 02:39:38 +0000 (+0000)
Subject: escape nulls for testing
X-Git-Tag: BUSINESS_ONLINEPAYMENT_AUTHORIZENET_3_11~2
X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-AuthorizeNet.git;a=commitdiff_plain;h=1a21aa040d676e76c602ab256106b61dee0bf907

escape nulls for testing
---

diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm
index 38d00ae..569d88d 100644
--- a/AuthorizeNet.pm
+++ b/AuthorizeNet.pm
@@ -1,6 +1,6 @@
 package Business::OnlinePayment::AuthorizeNet;
 
-# $Id: AuthorizeNet.pm,v 1.8 2002-04-23 01:38:59 ivan Exp $
+# $Id: AuthorizeNet.pm,v 1.9 2002-04-24 02:39:38 ivan Exp $
 
 use strict;
 use Business::OnlinePayment;
@@ -155,6 +155,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;
           $self->error_message($col[3].
             " DEBUG: No x_response_code from server, ".
             "(HTTPS response: $server_response) ".