0.08, fix a warning

diff --git a/Changes b/Changes
index e1eeb67..4d17ef3 100644 (file)
--- a/Changes
+++ b/Changes
@@ -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 (file)
--- 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) {