[interchange/gateway_log: 11/11] Clean up trailing spaces and update copyright

Mark Johnson interchange-cvs at icdevgroup.org
Sat Nov 4 18:06:04 UTC 2017


commit e6536769487c7c8547c9441188c6087dd9946955
Author: Mark Johnson <mark at 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 at 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/;



More information about the interchange-cvs mailing list