[Bioperl-guts-l] [16687] bioperl-run/trunk/lib/Bio/DB/SoapEUtilities.pm: bug squish

[Mark Allen Jensen]

Revision: 16687
Author:   maj
Date:     2010-01-13 07:42:55 -0500 (Wed, 13 Jan 2010)
Log Message:
-----------
bug squish

Modified Paths:
--------------
    bioperl-run/trunk/lib/Bio/DB/SoapEUtilities.pm

Modified: bioperl-run/trunk/lib/Bio/DB/SoapEUtilities.pm
===================================================================
--- bioperl-run/trunk/lib/Bio/DB/SoapEUtilities.pm	2010-01-13 12:31:22 UTC (rev 16686)
+++ bioperl-run/trunk/lib/Bio/DB/SoapEUtilities.pm	2010-01-13 12:42:55 UTC (rev 16687)
@@ -559,7 +559,7 @@
 		# pass run() args to the downstream utility here
 		# (so can specify -rettype, basically)
 		# note @args will contain -auto_adapt => 1 here.
-		my $adaptor = $self->efetch( -db => $self->db,
+	        $adaptor = $self->efetch( -db => $self->db,
 					     -id => $ids,
 					     @args )->run(-no_parse => 1, @args);
 		last;
@@ -590,7 +590,7 @@
 	    };
 	    # else, ignore
 	}
-	return $adaptor || $result;
+	return ($adaptor || $result);
     }
     else {
 	return $result;