From 6eed90b14ddeae1c07c908ad8e151686b005b3f3 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sun, 2 Nov 2025 11:40:21 -0700 Subject: [PATCH] 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 --- t/op/magic.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/t/op/magic.t b/t/op/magic.t index 6a84e63c43d6..9d3b569d659e 100644 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -53,6 +53,7 @@ $Is_MSWin32 = $^O eq 'MSWin32'; $Is_VMS = $^O eq 'VMS'; $Is_os2 = $^O eq 'os2'; $Is_Cygwin = $^O eq 'cygwin'; +$Is_ZOS = $^O eq 'os390'; $PERL = ($Is_VMS ? $^X : @@ -827,8 +828,8 @@ SKIP: { if $Is_MSWin32 && is_miniperl; SKIP: { - skip("clearing \%ENV is not safe when running under valgrind or on VMS") - if $ENV{PERL_VALGRIND} || $Is_VMS; + skip("clearing \%ENV is not safe when running under valgrind or on VMS or on z/OS in ASCII mode") + if $ENV{PERL_VALGRIND} || $Is_VMS || ($Is_ZOS && ord "A" == 65); $PATH = $ENV{PATH}; $SYSTEMROOT = $ENV{SYSTEMROOT} if exists $ENV{SYSTEMROOT}; # win32