Lines Matching refs:new_env
276 %new_env = ();
279 $new_env{$env} = $ENV{$env} if defined $ENV{$env};
281 $new_env{'CYGWIN'} = 'nodosfilewarning';
282 $new_env{'ENV'} = '/nonexistant';
284 $new_env{'__perlname'} = $Config{perlpath};
286 $new_env{'__perlname'} = $Config{perlpath} . $Config{_exe};
291 $new_env{$1} = $2 eq '' ? $ENV{$1} : $3;
538 delete $new_env{$var};
540 $new_env{substr($var, 0, $i)} = substr($var, $i + 1);
573 $new_env{'__progname'} = $argv[0];
576 #%ENV = %new_env;
580 $ENV{$k} = $v while ($k,$v) = each %new_env;
