From 2d6b165414a36b2f7babc9ffdf83d659589dd9eb Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 29 Sep 2001 13:54:04 +0000 Subject: [PATCH] Save and restore $ENV{'SYS$LOGIN'} only in VMS. p4raw-id: //depot/perl@12267 --- t/op/chdir.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/t/op/chdir.t b/t/op/chdir.t index 764e31ae3c..c6684944c9 100644 --- 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, -- 2.34.1