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; }