diff options
| -rw-r--r-- | Changes | 3 | ||||
| -rw-r--r-- | lib/Business/OnlinePayment/WesternACH.pm | 7 |
2 files changed, 7 insertions, 3 deletions
@@ -1,5 +1,8 @@ Revision history for Business-OnlinePayment-WesternACH +0.08 Thu Oct 1 15:16:05 PDT 2009 + - Fix "Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.8.5/Business/OnlinePayment/WesternACH.pm" warning when running returns + 0.07 Tue Aug 18 22:45:10 PDT 2009 - Handle format change to transret.php results. diff --git a/lib/Business/OnlinePayment/WesternACH.pm b/lib/Business/OnlinePayment/WesternACH.pm index 4a73897..5240dab 100644 --- a/lib/Business/OnlinePayment/WesternACH.pm +++ b/lib/Business/OnlinePayment/WesternACH.pm @@ -11,7 +11,7 @@ use Date::Parse 'str2time'; use vars qw($VERSION @ISA $me $DEBUG); @ISA = qw(Business::OnlinePayment::HTTPS); -$VERSION = '0.07'; +$VERSION = '0.08'; $me = 'Business::OnlinePayment::WesternACH'; $DEBUG = 0; @@ -179,8 +179,9 @@ sub get_returns { if(exists($content->{'command'})) { croak 'get_returns: command is already set on this transaction'; } - if ($content->{'returns_method'} eq 'requester') { -# Obsolete, deprecated method supported for now as a fallback option. + if ( exists($content->{'returns_method'}) && + $content->{'returns_method'} eq 'requester') { + # Obsolete, deprecated method supported for now as a fallback option. $content->{'command'} = 'get_returns'; $self->submit; if($self->is_success) { |