From 1a21aa040d676e76c602ab256106b61dee0bf907 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 24 Apr 2002 02:39:38 +0000
Subject: [PATCH] escape nulls for testing

---
 AuthorizeNet.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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) ".
-- 
2.11.0