Lines Matching refs:new_env

277 %new_env = ();
280     $new_env{$env} = $ENV{$env} if defined $ENV{$env};
282 $new_env{'CYGWIN'} = 'nodosfilewarning';
283 $new_env{'ENV'} = '/nonexistant';
284 $new_env{'PATHSEP'} = $os eq 'os2' ? ';' : ':';
286 	$new_env{'__perlname'} = $Config{perlpath};
288 	$new_env{'__perlname'} = $Config{perlpath} . $Config{_exe};
293 	$new_env{$1} = $2 eq '' ? $ENV{$1} : $3;
541 		    delete $new_env{$var};
543 		    $new_env{substr($var, 0, $i)} = substr($var, $i + 1);
576 	$new_env{'__progname'} = $argv[0];
583 	$ENV{$k} = $v while ($k,$v) = each %new_env;