| Subject: | [PATCH] skip a test in tmpdir.t that can't work on VMS |
The attached patch (checked in to blead as #31432), skips a test on VMS that depends on
assigning to %ENV in list context, which is unimplemented on VMS.
| Subject: | tmpdir.patch.txt |
--- lib/File/Spec/t/tmpdir.t;-0 Thu Jun 14 09:13:53 2007
+++ lib/File/Spec/t/tmpdir.t Wed Jun 20 03:04:41 2007
@@ -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";