diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2014-02-15 12:52:57 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2014-02-15 12:52:57 -0800 |
| commit | af684c392679cf62703ea60c0b9c50d70e6cd82a (patch) | |
| tree | 2f9f90923230b26913828875b3527849b1e9f401 /lib | |
| parent | 97691c77e7ace2c14c5e145cb124130e0f0a888e (diff) | |
quiet warnings, 0.02
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Business/OnlinePayment/IATSPayments.pm | 6 |
1 files changed, 4 insertions, 2 deletions
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 ) { |