perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/t/filter/TestFilter reverse.pm
Date Wed, 04 Apr 2001 17:48:29 GMT
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;
  
  
  

Mime
View raw message