From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 29 Sep 2001 13:54:04 +0000 (+0000)
Subject: Save and restore $ENV{'SYS$LOGIN'} only in VMS.
X-Git-Tag: upstream/5.16.3~30084
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=2d6b165414a36b2f7babc9ffdf83d659589dd9eb;p=platform%2Fupstream%2Fperl.git

Save and restore $ENV{'SYS$LOGIN'} only in VMS.

p4raw-id: //depot/perl@12267
---

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,