Author: pgollucci
Date: Thu Sep  1 21:28:20 2005
New Revision: 266269

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

Modified:
    perl/modperl/trunk/t/directive/setupenv.t

Modified: perl/modperl/trunk/t/directive/setupenv.t
URL: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/directive/setupenv.t?rev=266269&r1=266268&r2=266269&view=diff
==============================================================================
--- perl/modperl/trunk/t/directive/setupenv.t (original)
+++ perl/modperl/trunk/t/directive/setupenv.t Thu Sep  1 21:28:20 2005
@@ -17,7 +17,7 @@
 
 for my $line (split /\n/, $env) {
     next unless $line =~ /=/;
-    my($key, $val) = split /=/, $line, 2;
+    my ($key, $val) = split /=/, $line, 2;
     $env{$key} = $val || '';
 }
 


Reply via email to