Author: pgollucci
Date: Thu Sep 1 21:27:41 2005
New Revision: 266267
URL: http://svn.apache.org/viewcvs?rev=266267&view=rev
Log:
s/my(/my (/g
Modified:
perl/modperl/trunk/t/compat/request_body.t
Modified: perl/modperl/trunk/t/compat/request_body.t
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/compat/request_body.t?rev=266267&r1=266266&r2=266267&view=diff
==============================================================================
--- perl/modperl/trunk/t/compat/request_body.t (original)
+++ perl/modperl/trunk/t/compat/request_body.t Thu Sep 1 21:27:41 2005
@@ -73,7 +73,7 @@
### helper subs ###
sub query {
- my(%args) = (@_ % 2) ? %{+shift} : @_;
+ my (%args) = (@_ % 2) ? %{+shift} : @_;
"$location?" . join '&', map { "$_=$args{$_}" } keys %args;
}