diff options
-rw-r--r-- | USAePay.pm | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; } |