4 # Grab all of the plain routines from File::Spec
12 my $num_keys = keys %ENV;
14 ok scalar keys %ENV, $num_keys, "tmpdir() shouldn't change the contents of %ENV";
16 File::Spec::Win32->tmpdir;
17 ok scalar keys %ENV, $num_keys, "Win32->tmpdir() shouldn't change the contents of %ENV";