From 3eb182fc1c6eeac8a0fb88a34799b2d54900d0fb Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Thu, 21 Jun 2007 03:24:02 +0000
Subject: [PATCH] Skip a test that causes list assignment to %ENV errors on
 VMS.

p4raw-id: //depot/perl@31432
---
 lib/File/Spec/t/tmpdir.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/File/Spec/t/tmpdir.t b/lib/File/Spec/t/tmpdir.t
index 4acbdf0..bc004f9 100644
--- 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";
-- 
2.7.4