[interchange/gateway_log: 11/11] Clean up trailing spaces and update copyright
Mark Johnson <[email protected]> Sat, 04 Nov 2017 18:06:04 +0000
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit e6536769487c7c8547c9441188c6087dd9946955 Author: Mark Johnson <[email protected]> Date: Fri Nov 3 18:14:18 2017 -0400 Clean up trailing spaces and update copyright lib/Vend/Payment.pm | 14 +++++++------- lib/Vend/Payment/GatewayLog.pm | 2 +- lib/Vend/Payment/PaypalExpress.pm | 6 +++--- 3 files changed, 11 insertions(+), 11 deletions(-) --- diff --git a/lib/Vend/Payment.pm b/lib/Vend/Payment.pm index 61b2654..cc62bba 100644 --- a/lib/Vend/Payment.pm +++ b/lib/Vend/Payment.pm @@ -406,13 +406,13 @@ sub charge { local $SIG{USR2} = sub { $Global_Timeout = 'Global Timeout on gateway request'; exit; - }; + }; my %rv = $sub->($pay_opt); $pipe->print( ::uneval(\%rv) ); exit; - } + } $pipe->reader; @@ -429,23 +429,23 @@ sub charge { my $rv = eval join ('', $pipe->getlines); return %$rv; - } + } return $sub->($pay_opt); - }; + }; if($@) { my $msg = errmsg( "payment routine '%s' returned error: %s", $charge_type, - $@, - ); + $@, + ); kill (USR2 => $pid) if $pid && kill (0 => $pid); ::logError($msg); $result{MStatus} = 'died'; $result{MErrMsg} = $msg; - } + } } elsif($charge_type =~ /^\s*custom\s+(\w+)(?:\s+(.*))?/si) { #::logDebug("Charge custom"); diff --git a/lib/Vend/Payment/GatewayLog.pm b/lib/Vend/Payment/GatewayLog.pm index 6bb9081..979a63a 100644 --- a/lib/Vend/Payment/GatewayLog.pm +++ b/lib/Vend/Payment/GatewayLog.pm @@ -366,7 +366,7 @@ Mark Johnson ([email protected]), End Point Corp. =head1 LICENSE AND COPYRIGHT -Copyright (C) 2009 Interchange Development Group and others +Copyright (C) 2017 Interchange Development Group and others This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software diff --git a/lib/Vend/Payment/PaypalExpress.pm b/lib/Vend/Payment/PaypalExpress.pm index 3052f6e..d4c5c24 100644 --- a/lib/Vend/Payment/PaypalExpress.pm +++ b/lib/Vend/Payment/PaypalExpress.pm @@ -2080,17 +2080,17 @@ sub log_it { my $response = $self->response; my ($rc,$resp_msg); - if ( $response->{Ack} eq 'Success' ) { + if ( $response->{Ack} eq 'Success' ) { $rc = 0; $resp_msg = $response->{Ack}; - } + } else { $rc = $response->{Errors}{ErrorCode}; # Just in case $rc =~ s/[^-\d]+//g if defined $rc; $resp_msg = $response->{Errors}{LongMessage}; - } + } $rc = -1 unless length ($rc) && $rc =~ /\d/;