Change 31432 by [EMAIL PROTECTED] on 2007/06/21 03:24:02
Skip a test that causes list assignment to %ENV errors on VMS.
Affected files ...
... //depot/perl/lib/File/Spec/t/tmpdir.t#3 edit
Differences ...
==== //depot/perl/lib/File/Spec/t/tmpdir.t#3 (text) ====
Index: perl/lib/File/Spec/t/tmpdir.t
--- perl/lib/File/Spec/t/tmpdir.t#2~31382~ 2007-06-14 07:12:35.000000000
-0700
+++ perl/lib/File/Spec/t/tmpdir.t 2007-06-20 20:24:02.000000000 -0700
@@ -13,7 +13,10 @@
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";
End of Patch.
