Unicode properties: fix L& (the #12319 didn't allow L&,

[p5sagit/p5-mst-13.2.git] / t / op / chdir.t

diff --git a/t/op/chdir.t b/t/op/chdir.t
index 764e31a..c668494 100644 (file)
--- a/t/op/chdir.t
+++ b/t/op/chdir.t
@@ -11,12 +11,13 @@ require "test.pl";
 plan(tests => 31);
 
 my $IsVMS = $^O eq 'VMS';
+
 my ($saved_sys_login);
 BEGIN {
-    $saved_sys_login = $ENV{'SYS$LOGIN'};
+    $saved_sys_login = $ENV{'SYS$LOGIN'} if $^O eq 'VMS'
 }
 END {
-    $ENV{'SYS$LOGIN'} = $saved_sys_login;
+    $ENV{'SYS$LOGIN'} = $saved_sys_login if $^O eq 'VMS';
 }
 
 # Might be a little early in the testing process to start using these,