[Bioperl-guts-l] [16647] bioperl-dev/branches/eutils-soap-run/lib/Bio/DB: oops X 2

Mark Allen Jensen maj at dev.open-bio.org
Sun Jan 10 22:56:33 EST 2010


Revision: 16647
Author:   maj
Date:     2010-01-10 22:56:33 -0500 (Sun, 10 Jan 2010)
Log Message:
-----------
oops X 2

Modified Paths:
--------------
    bioperl-dev/branches/eutils-soap-run/lib/Bio/DB/ESoap/WSDL.pm
    bioperl-dev/branches/eutils-soap-run/lib/Bio/DB/SoapEUtilities/FetchAdaptor/seq.pm

Modified: bioperl-dev/branches/eutils-soap-run/lib/Bio/DB/ESoap/WSDL.pm
===================================================================
--- bioperl-dev/branches/eutils-soap-run/lib/Bio/DB/ESoap/WSDL.pm	2010-01-11 03:55:30 UTC (rev 16646)
+++ bioperl-dev/branches/eutils-soap-run/lib/Bio/DB/ESoap/WSDL.pm	2010-01-11 03:56:33 UTC (rev 16647)
@@ -349,7 +349,6 @@
 
 sub db {
     my $self = shift;
-    $DB::single =1 if $self->root->namespace('nsef');
     $self->root->namespace('nsef') =~ /efetch_(.*?)$/;
     return $1;
 }

Modified: bioperl-dev/branches/eutils-soap-run/lib/Bio/DB/SoapEUtilities/FetchAdaptor/seq.pm
===================================================================
--- bioperl-dev/branches/eutils-soap-run/lib/Bio/DB/SoapEUtilities/FetchAdaptor/seq.pm	2010-01-11 03:55:30 UTC (rev 16646)
+++ bioperl-dev/branches/eutils-soap-run/lib/Bio/DB/SoapEUtilities/FetchAdaptor/seq.pm	2010-01-11 03:56:33 UTC (rev 16647)
@@ -371,7 +371,7 @@
     my ($stem, $som, $locfac, $get_pri) = @_;
     my @ret;
     my $seqid = $get_pri->('primary-accession');
-    $DB::single=1;
+
     for ( my $i = 1; $get_pri->("feature-table/[$i]"); $i++ ) {
 	my $get = sub { 
 	    $som->valueof($stem."/GBSeq_feature-table/[$i]/GBFeature_".shift ) 



More information about the Bioperl-guts-l mailing list