cvs commit: modperl-2.0/t/filter/TestFilter buckets.pm

[dougm]

dougm       01/04/19 10:31:10

  Modified:    t/filter/TestFilter buckets.pm
  Log:
  adjust APR::Bucket->readapi change
  
  Revision  Changes    Path
  1.2       +2 -1      modperl-2.0/t/filter/TestFilter/buckets.pm
  
  Index: buckets.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/buckets.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- buckets.pm        2001/04/18 05:11:14     1.1
  +++ buckets.pm        2001/04/19 17:31:06     1.2
  @@ -20,7 +20,8 @@
       for (my $bucket = $bb->first; $bucket; $bucket = $bb->next($bucket)) {
           ok $bucket->type->name;
           ok $bucket->length == 2;
  -        ok $bucket->read eq 'ok';
  +        $bucket->read(my $data);
  +        ok $data eq 'ok';
       }
   
       my $tests = Apache::TestToString->finish;