quiet warnings, 0.02

[Business-OnlinePayment-IATSPayments.git] / lib / Business / OnlinePayment / IATSPayments.pm

diff --git a/lib/Business/OnlinePayment/IATSPayments.pm b/lib/Business/OnlinePayment/IATSPayments.pm
index 69495ab..cb5eda3 100644 (file)
--- 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 ) {