Clean up trailing spaces and update copyright

interchange · Nov 4, 2017 · e653676 · e653676
1 parent b97321c
commit e653676
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 11 deletions.
diff --git 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
@@ -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
@@ -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/;