cvs commit: modperl-2.0/t/lib/TestAPRlib table.pm

[randyk]

randyk      2004/07/14 20:34:39

  Modified:    t/lib/TestAPRlib table.pm
  Log:
  make $filter_count global, and reset it at the beginning of the test.
  
  Revision  Changes    Path
  1.3       +2 -1      modperl-2.0/t/lib/TestAPRlib/table.pm
  
  Index: table.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/lib/TestAPRlib/table.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- table.pm  15 Jul 2004 03:28:28 -0000      1.2
  +++ table.pm  15 Jul 2004 03:34:39 -0000      1.3
  @@ -14,10 +14,11 @@
   use APR::Const    -compile => ':table';
   
   use constant TABLE_SIZE => 20;
  -my $filter_count;
  +our $filter_count;
   
   sub test {
   
  +    $filter_count = 0;
       my $pool = APR::Pool->new();
       my $table = APR::Table::make($pool, TABLE_SIZE);