svn commit: r266266 - in /perl/modperl/trunk/t/api: internal_redirect.t lookup_uri.t

[pgollucci]

Author: pgollucci
Date: Thu Sep  1 21:27:19 2005
New Revision: 266266

URL: http://svn.apache.org/viewcvs?rev=266266&view=rev
Log:
s/my(/my (/g

Modified:
    perl/modperl/trunk/t/api/internal_redirect.t
    perl/modperl/trunk/t/api/lookup_uri.t

Modified: perl/modperl/trunk/t/api/internal_redirect.t
URL: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/api/internal_redirect.t?rev=266266&r1=266265&r2=266266&view=diff
==============================================================================
--- perl/modperl/trunk/t/api/internal_redirect.t (original)
+++ perl/modperl/trunk/t/api/internal_redirect.t Thu Sep  1 21:27:19 2005
@@ -20,7 +20,7 @@
 
 plan tests => scalar keys %map;
 
-while (my($key, $val) = each %map) {
+while (my ($key, $val) = each %map) {
     my $expected = "internal redirect: $key";
     my $received = GET_BODY_ASSERT $val;
     ok t_cmp($received, $expected);

Modified: perl/modperl/trunk/t/api/lookup_uri.t
URL: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/api/lookup_uri.t?rev=266266&r1=266265&r2=266266&view=diff
==============================================================================
--- perl/modperl/trunk/t/api/lookup_uri.t (original)
+++ perl/modperl/trunk/t/api/lookup_uri.t Thu Sep  1 21:27:19 2005
@@ -19,7 +19,7 @@
 
 plan tests => scalar keys %opts;
 
-while (my($filter, $runs) = each %opts) {
+while (my ($filter, $runs) = each %opts) {
     my $args = "subreq=lookup_uri;filter=$filter";
     my $prefix = "pre+" x $runs->[PREFIX];
     my $suffix = "+suf" x $runs->[SUFFIX];