You are viewing a plain text version of this content. The canonical link for it is here.

Posted to modperl-cvs@perl.apache.org by pg...@apache.org on 2005/09/02 06:28:22 UTC

svn commit: r266269 - /perl/modperl/trunk/t/directive/setupenv.t

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