[Bps-public-commit] r15741 - in Test-Chimps-Client/branches/modern-tap: lib/Test/Chimps

[alexmv at bestpractical.com]

Author: alexmv
Date: Wed Sep  3 18:05:49 2008
New Revision: 15741

Modified:
   Test-Chimps-Client/branches/modern-tap/bin/chimps-smoker.pl
   Test-Chimps-Client/branches/modern-tap/lib/Test/Chimps/Smoker.pm

Log:
 * Whoops -- jobs takes an int vale, not a flag

Modified: Test-Chimps-Client/branches/modern-tap/bin/chimps-smoker.pl
==============================================================================
--- Test-Chimps-Client/branches/modern-tap/bin/chimps-smoker.pl	(original)
+++ Test-Chimps-Client/branches/modern-tap/bin/chimps-smoker.pl	Wed Sep  3 18:05:49 2008
@@ -20,7 +20,7 @@
            "iterations|i=i",  \$iterations,
            "projects|p=s",    \$projects,
            "help|h",          \$help,
-           "jobs|j",          \$jobs)
+           "jobs|j=i",        \$jobs)
   || pod2usage(-exitval => 2,
                -verbose => 1);
 

Modified: Test-Chimps-Client/branches/modern-tap/lib/Test/Chimps/Smoker.pm
==============================================================================
--- Test-Chimps-Client/branches/modern-tap/lib/Test/Chimps/Smoker.pm	(original)
+++ Test-Chimps-Client/branches/modern-tap/lib/Test/Chimps/Smoker.pm	Wed Sep  3 18:05:49 2008
@@ -166,7 +166,7 @@
           osvers    => $Config{osvers},
           archname  => $Config{archname},
       },
-      jobs => $config->{$project}{jobs} || $self->{jobs},
+      jobs => ($config->{$project}{jobs} || $self->{jobs}),
       lib => \@libs,
   } );
   $harness->runtests(glob($test_glob));