StandaloneBlastPlus: don't automatically add ./ to remote database names

Thanks to Paul Cantalupo for reporting and testing this.
bioperl · Aug 12, 2010 · e817288 · e817288
1 parent 91bfbd9
commit e817288
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/lib/Bio/Tools/Run/StandAloneBlastPlus/BlastMethods.pm b/lib/Bio/Tools/Run/StandAloneBlastPlus/BlastMethods.pm
@@ -248,7 +248,13 @@ sub run {
 	}
     }
 
-    $blast_args{-db} = $self->db_path;
+    # remove a leading ./ on remote databases. Something adds that in the
+    # factory, easier to remove here.
+    my $db = $self->db_path;
+    if ($self->is_remote) {
+        $db =~ s#^\./##;
+    }
+    $blast_args{-db} = $db;
     $blast_args{-query} = $self->_fastize($query);
     $blast_args{-out} = $outfile;
     # user arg override