noise reduction

[Business-OnlinePayment-USAePay.git] / USAePay.pm

diff --git a/USAePay.pm b/USAePay.pm
index 0ebaf57..a57c6a6 100644 (file)
--- 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;
     }