[Bioperl-guts-l] [16909] bioperl-live/trunk/t/Tools/Run: next, not redo

Christopher John Fields cjfields at dev.open-bio.org
Fri Mar 5 10:44:34 EST 2010


Revision: 16909
Author:   cjfields
Date:     2010-03-05 10:44:34 -0500 (Fri, 05 Mar 2010)
Log Message:
-----------
next, not redo

Modified Paths:
--------------
    bioperl-live/trunk/t/Tools/Run/RemoteBlast.t
    bioperl-live/trunk/t/Tools/Run/RemoteBlast_rpsblast.t

Modified: bioperl-live/trunk/t/Tools/Run/RemoteBlast.t
===================================================================
--- bioperl-live/trunk/t/Tools/Run/RemoteBlast.t	2010-03-05 11:19:16 UTC (rev 16908)
+++ bioperl-live/trunk/t/Tools/Run/RemoteBlast.t	2010-03-05 15:44:34 UTC (rev 16909)
@@ -55,7 +55,7 @@
         }
         sleep 5;
         print STDERR "Retrieval attempt: $attempt\n" if ( $v > 0 );
-        $attempt++ < 10 ? redo : last;
+        $attempt++ < 10 ? next : last;
     } else {
         last
     }
@@ -131,7 +131,7 @@
         }
         sleep 5;
         print STDERR "Retrieval attempt: $attempt\n" if ( $v > 0 );
-        $attempt++ < 10 ? redo : last;
+        $attempt++ < 10 ? next : last;
     } else {
         last
     }
@@ -206,7 +206,7 @@
         }
         sleep 5;
         print STDERR "Retrieval attempt: $attempt\n" if ( $v > 0 );
-        $attempt++ < 10 ? redo : last;
+        $attempt++ < 10 ? next : last;
     } else {
         last
     }

Modified: bioperl-live/trunk/t/Tools/Run/RemoteBlast_rpsblast.t
===================================================================
--- bioperl-live/trunk/t/Tools/Run/RemoteBlast_rpsblast.t	2010-03-05 11:19:16 UTC (rev 16908)
+++ bioperl-live/trunk/t/Tools/Run/RemoteBlast_rpsblast.t	2010-03-05 15:44:34 UTC (rev 16909)
@@ -63,7 +63,7 @@
 	    }
 	    sleep 5;
 	    print STDERR "Retrieval attempt: $attempt\n" if ( $v > 0 );
-	    $attempt++ < 10 ? redo : last;
+	    $attempt++ < 10 ? next : last;
 	} else {
 	    last
 	}



More information about the Bioperl-guts-l mailing list