diff options
Diffstat (limited to 'lib/Business/OnlinePayment/WesternACH.pm')
| -rw-r--r-- | lib/Business/OnlinePayment/WesternACH.pm | 7 |
1 files changed, 4 insertions, 3 deletions
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) { |