[Bioperl-guts-l] bioperl commit

Allen Day allenday at pub.open-bio.org
Mon Aug 9 13:51:45 EDT 2004


allenday
Mon Aug  9 13:51:45 EDT 2004
Update of /home/repository/bioperl/bioperl-live/Bio/Root
In directory pub.open-bio.org:/tmp/cvs-serv13602/Bio/Root

Modified Files:
	IO.pm 
Log Message:
typo

bioperl-live/Bio/Root IO.pm,1.53,1.54
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Root/IO.pm,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -r1.53 -r1.54
--- /home/repository/bioperl/bioperl-live/Bio/Root/IO.pm	2004/08/09 17:47:47	1.53
+++ /home/repository/bioperl/bioperl-live/Bio/Root/IO.pm	2004/08/09 17:51:45	1.54
@@ -262,17 +262,18 @@
       my $trymax = 5;
 
       if($HAS_LWP){ #use LWP::Simple::getstore()
+        use LWP::Simple;
         #$self->warn("has lwp");
         my $http_result;
         my($handle,$tempfile) = $self->tempfile();
         close($handle);
 
         for(my $try = 1 ; $try <= $trymax ; $try++){
-          $http_result = LWP::Simple::getstore($input, $tempfile);
-          $self->warn("[$try/$trymax] tried to fetch $input, but server threw $http_result.  retrying...") if $http_result != 200;
+          $http_result = LWP::Simple::getstore($url, $tempfile);
+          $self->warn("[$try/$trymax] tried to fetch $url, but server threw $http_result.  retrying...") if $http_result != 200;
           last if $http_result == 200;
         }
-        $self->throw("failed to fetch $input, server threw $http_result") if $http_result != 200;
+        $self->throw("failed to fetch $url, server threw $http_result") if $http_result != 200;
 
         $input = $tempfile;
         $file  = $tempfile;



More information about the Bioperl-guts-l mailing list