From 2d5dbf9948964188d7b27fef31559914126defae Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Thu, 23 Nov 2006 01:43:20 +0000
Subject: [PATCH] noise reduction

---
 USAePay.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/USAePay.pm b/USAePay.pm
index 0ebaf57..a57c6a6 100644
--- a/USAePay.pm
+++ b/USAePay.pm
@@ -11,7 +11,7 @@ use vars qw($VERSION @ISA $DEBUG);
 @ISA = qw(Business::OnlinePayment::HTTPS);
 $VERSION = '0.01';
 
-$DEBUG = 1;
+$DEBUG = 0;
 
 my $default_path = '/gate.php';
 my $default_cert_path = '/secure/gate.php';
@@ -143,7 +143,7 @@ sub submit {
     $response->{$_} =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg
       foreach keys %$response;
 
-    if ( 1 || $DEBUG ) {
+    if ( $DEBUG ) {
       warn "response:$_ => $response->{$_}\n" foreach keys %$response;
     }
 
-- 
2.11.0