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

[dougm]

dougm       01/04/04 10:48:29

  Modified:    t/filter/TestFilter reverse.pm
  Log:
  fix the reverse filter test
  
  Revision  Changes    Path
  1.2       +4 -1      modperl-2.0/t/filter/TestFilter/reverse.pm
  
  Index: reverse.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/reverse.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- reverse.pm        2001/04/02 18:20:06     1.1
  +++ reverse.pm        2001/04/04 17:48:29     1.2
  @@ -9,7 +9,10 @@
       my $filter = shift;
   
       while ($filter->read(my $buffer, 1024)) {
  -        $filter->print(scalar reverse $buffer);
  +        for (split "\n", $buffer) {
  +            $filter->print(scalar reverse $_);
  +            $filter->print("\n");
  +        }
       }
   
       0;