Author: pgollucci Date: Thu Sep 1 21:29:34 2005 New Revision: 266273 URL: http://svn.apache.org/viewcvs?rev=266273&view=rev Log: s/my(/my (/g
Modified: perl/modperl/trunk/t/modperl/setupenv2.t Modified: perl/modperl/trunk/t/modperl/setupenv2.t URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/modperl/setupenv2.t?rev=266273&r1=266272&r2=266273&view=diff ============================================================================== --- perl/modperl/trunk/t/modperl/setupenv2.t (original) +++ perl/modperl/trunk/t/modperl/setupenv2.t Thu Sep 1 21:29:34 2005 @@ -17,7 +17,7 @@ plan tests => 2 + scalar(@{ $expected{mixed} }) + scalar(@{ $expected{perl} }); -while (my($k, $v) = each %expected) { +while (my ($k, $v) = each %expected) { my @expected = @$v; my $elements = scalar @expected; my $received = GET_BODY "$location?$k";