Mailing List Archive

commit e6536769487c7c8547c9441188c6087dd9946955
Author: Mark Johnson <mark@endpoint.com>
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 (mark@endpoint.com), 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/;

_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs