From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 21 Jun 2007 03:24:02 +0000 (+0000)
Subject: Skip a test that causes list assignment to %ENV errors on VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3eb182fc1c6eeac8a0fb88a34799b2d54900d0fb;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";