Skip to content

Commit 2371a9b

Browse files
committed
op/magic.t clearing %ENV now z/OS safe except in ASCII mode
So no need to skip this test, except when run under ASCII
1 parent b84dc2d commit 2371a9b

File tree

1 file changed

+3
-2
lines changed

1 file changed

+3
-2
lines changed

t/op/magic.t

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -53,6 +53,7 @@ $Is_MSWin32 = $^O eq 'MSWin32';
5353
$Is_VMS = $^O eq 'VMS';
5454
$Is_os2 = $^O eq 'os2';
5555
$Is_Cygwin = $^O eq 'cygwin';
56+
$Is_ZOS = $^O eq 'os390';
5657

5758
$PERL =
5859
($Is_VMS ? $^X :
@@ -827,8 +828,8 @@ SKIP: {
827828
if $Is_MSWin32 && is_miniperl;
828829

829830
SKIP: {
830-
skip("clearing \%ENV is not safe when running under valgrind or on VMS")
831-
if $ENV{PERL_VALGRIND} || $Is_VMS;
831+
skip("clearing \%ENV is not safe when running under valgrind or on VMS or on z/OS in ASCII mode")
832+
if $ENV{PERL_VALGRIND} || $Is_VMS || ($Is_ZOS && ord "A" == 65);
832833

833834
$PATH = $ENV{PATH};
834835
$SYSTEMROOT = $ENV{SYSTEMROOT} if exists $ENV{SYSTEMROOT}; # win32

0 commit comments

Comments
 (0)