Test::Builder bug

[Dave Rolsky]

The changelog says this:

0.42  Wed Mar  6 15:00:24 EST 2002
    - Setting Test::Builder->current_test() now works (see what happens
      when you forget to test things?)

But if I do this:

 perl -MTest::Builder -e 'Test::Builder->new->current_test(10)'

it still blows chunks.

Patch below.


houseabsolute:/usr/local/share/perl/5.6.1/Test> diff -u
/root/.cpan/build/Test-Simple-0.42/lib/Test/Builder.pm Builder.pm
--- /root/.cpan/build/Test-Simple-0.42/lib/Test/Builder.pm      Wed Mar  6
14:14:58 2002
+++ Builder.pm  Sat Mar 30 17:29:42 2002
@@ -935,7 +935,8 @@
     if( defined $num ) {
         $Curr_Test = $num;
         if( $num > @Test_Results ) {
-            for ($#Test_Results..$num-1) {
+            my $start = @Test_Results ? $#Test_Results : 0;
+            for ($start..$num-1) {
                 $Test_Results[$_] = 1;
             }
         }