4 # Grab all of the plain routines from File::Spec
14 # Need to cause the %ENV to get populated or you only get the builtins at
15 # first, and then something else can cause the hash to get populated.
18 my $num_keys = keys %ENV;
20 ok scalar keys %ENV, $num_keys, "tmpdir() shouldn't change the contents of %ENV";
23 skip("Can't make list assignment to %ENV on this system", 1);
26 File::Spec::Win32->tmpdir;
27 ok scalar keys %ENV, 0, "Win32->tmpdir() shouldn't change the contents of %ENV";
30 File::Spec::Win32->tmpdir;
31 ok scalar keys %ENV, $num_keys, "Win32->tmpdir() shouldn't change the contents of %ENV";