escape nulls for testing

diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm
index 38d00ae..569d88d 100644 (file)
--- 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) ".