Lines Matching refs:ENV
13 # Need to cause the %ENV to get populated or you only get the builtins at
15 my %look_env = %ENV;
17 my $num_keys = keys %ENV;
19 is scalar keys %ENV, $num_keys, "tmpdir() shouldn't change the contents of %ENV";
22 skip("Can't make list assignment to %ENV on this system", 1)
25 local %ENV;
27 is(scalar keys %ENV, 0, "Win32->tmpdir() shouldn't change the contents of %ENV");
31 is(scalar keys %ENV, $num_keys, "Win32->tmpdir() shouldn't change the contents of %ENV");
38 local $ENV{TMPDIR} = $_->catfile($_->curdir, 'lib');
39 -d $ENV{TMPDIR} && -w _
42 $ENV{TMPDIR} = $_->catfile($_->curdir, 't');
43 -d $ENV{TMPDIR} && -w _