[chimps] patches for Test::Chimps::Client 0.05

[kenichi ishigaki]

Hi. The following are patches for Test::Chimps::Client 0.05.

---------------------------
diff -ur Test-Chimps-Client-0.05/bin/chimps-smoker.pl
Test-Chimps-Client-0.05-patched/bin/chimps-smoker.pl
--- Test-Chimps-Client-0.05/bin/chimps-smoker.pl	2006-08-14
03:45:27.000000000 +0900
+++ Test-Chimps-Client-0.05-patched/bin/chimps-smoker.pl	2006-08-14
20:31:04.128375000 +0900
@@ -34,7 +34,7 @@
   exit 2;
 }

-if (! defined $server) {
+if (! defined $config_file) {
   print "You must specify a configuration file\n";
   exit 2;
 }

diff -ur Test-Chimps-Client-0.05/lib/Test/Chimps/Smoker.pm
Test-Chimps-Client-0.05-patched/lib/Test/Chimps/Smoker.pm
--- Test-Chimps-Client-0.05/lib/Test/Chimps/Smoker.pm	2006-08-14
03:32:38.000000000 +0900
+++ Test-Chimps-Client-0.05-patched/lib/Test/Chimps/Smoker.pm	2006-08-14
23:37:47.925250000 +0900
@@ -224,7 +224,9 @@
     }
   } else {
     for (my $i = 0; $i < $n;) {
-      $i++ if $self->_smoke_projects($projects);
+      # otherwise it loops forever when it failed
+      last unless $self->_smoke_projects($projects);
+      $i++;
       sleep 60;
     }
   }