cvs commit: modperl/t/docs startup.pl

[dougm]

dougm       00/12/22 16:32:21

  Modified:    t/docs   startup.pl
  Log:
  another fix for Test::Harness
  
  Revision  Changes    Path
  1.40      +1 -1      modperl/t/docs/startup.pl
  
  Index: startup.pl
  ===================================================================
  RCS file: /home/cvs/modperl/t/docs/startup.pl,v
  retrieving revision 1.39
  retrieving revision 1.40
  diff -u -r1.39 -r1.40
  --- startup.pl        2000/09/27 16:26:01     1.39
  +++ startup.pl        2000/12/23 00:32:21     1.40
  @@ -198,7 +198,7 @@
       print "1..$x\n";
       my $i = 1;
       for my $e (@entries) {
  -     print "ok $i ($e)\n";
  +     print "ok $i #($e)\n";
        ++$i;
       }
       1;