From af684c392679cf62703ea60c0b9c50d70e6cd82a Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Sat, 15 Feb 2014 12:52:57 -0800
Subject: quiet warnings, 0.02

---
 lib/Business/OnlinePayment/IATSPayments.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/Business/OnlinePayment/IATSPayments.pm b/lib/Business/OnlinePayment/IATSPayments.pm
index 69495ab..cb5eda3 100644
--- a/lib/Business/OnlinePayment/IATSPayments.pm
+++ b/lib/Business/OnlinePayment/IATSPayments.pm
@@ -287,8 +287,10 @@ sub submit {
 
   my $processresult = $iatsresponse->{PROCESSRESULT};
 
-  $processresult->{TRANSACTIONID} =~ s/^\s+//;
-  $processresult->{TRANSACTIONID} =~ s/\s+$//;
+  if ( defined( $processresult->{TRANSACTIONID} ) ) {
+    $processresult->{TRANSACTIONID} =~ s/^\s+//;
+    $processresult->{TRANSACTIONID} =~ s/\s+$//;
+  }
   $self->authorization($processresult->{TRANSACTIONID} || '');
 
   if ( $processresult->{AUTHORIZATIONRESULT} =~ /^\s*OK(:\s*\d+:)?(\w)?\s*$/i ) {
-- 
cgit v1.2.1