projects
/
Business-OnlinePayment-USAePay.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
08916d3
)
noise reduction
author
jeff
<jeff>
Thu, 23 Nov 2006 01:43:20 +0000
(
01:43
+0000)
committer
jeff
<jeff>
Thu, 23 Nov 2006 01:43:20 +0000
(
01:43
+0000)
USAePay.pm
patch
|
blob
|
history
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';
@ISA = qw(Business::OnlinePayment::HTTPS);
$VERSION = '0.01';
-$DEBUG =
1
;
+$DEBUG =
0
;
my $default_path = '/gate.php';
my $default_cert_path = '/secure/gate.php';
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;
$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;
}
warn "response:$_ => $response->{$_}\n" foreach keys %$response;
}