Return-Path: Delivered-To: apmail-modperl-cvs-archive@apache.org Received: (qmail 83997 invoked by uid 500); 4 Apr 2001 17:48:31 -0000 Mailing-List: contact modperl-cvs-help@apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@apache.org Received: (qmail 83972 invoked by uid 500); 4 Apr 2001 17:48:30 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 4 Apr 2001 17:48:29 -0000 Message-ID: <20010404174829.83952.qmail@apache.org> From: dougm@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/t/filter/TestFilter reverse.pm 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;