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

[Mark Allen Jensen]

Revision: 16685
Author:   maj
Date:     2010-01-12 23:10:10 -0500 (Tue, 12 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 01:49:49 UTC (rev 16684)
+++ bioperl-run/trunk/lib/Bio/DB/SoapEUtilities.pm	2010-01-13 04:10:10 UTC (rev 16685)
@@ -559,13 +559,11 @@
 		}
 		# pass run() args to the downstream utility here
 		# (so can specify -rettype, basically)
-		my $fetched = $self->efetch( -db => $self->db,
+		# note @args will contain -auto_adapt => 1 here.
+		my $adaptor = $self->efetch( -db => $self->db,
 					     -id => $ids,
 					     @args )->run(-no_parse => 1, @args);
-		$adaptor = Bio::DB::SoapEUtilities::FetchAdaptor->new(
-		    -result => $fetched
-		    );
-		last
+		last;
 	    };
 	    $_ eq 'elink' && do {
 		$adaptor = Bio::DB::SoapEUtilities::LinkAdaptor->new(