Skip a test that causes list assignment to %ENV errors on VMS.

p4raw-id: //depot/perl@31432

diff --git a/lib/File/Spec/t/tmpdir.t b/lib/File/Spec/t/tmpdir.t
index 4acbdf0..bc004f9 100644 (file)
--- a/lib/File/Spec/t/tmpdir.t
+++ b/lib/File/Spec/t/tmpdir.t
@@ -13,7 +13,10 @@ my $num_keys = keys %ENV;
 File::Spec->tmpdir;
 ok scalar keys %ENV, $num_keys, "tmpdir() shouldn't change the contents of %ENV";
 
-{
+if ($^O eq 'VMS') {
+  skip('Can\'t make list assignment to \%ENV on this system', 1);
+}
+else {
   local %ENV;
   File::Spec::Win32->tmpdir;
   ok scalar keys %ENV, 0, "Win32->tmpdir() shouldn't change the contents of %ENV";