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