We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent b84dc2d commit 6eed90bCopy full SHA for 6eed90b
t/op/magic.t
@@ -53,6 +53,7 @@ $Is_MSWin32 = $^O eq 'MSWin32';
53
$Is_VMS = $^O eq 'VMS';
54
$Is_os2 = $^O eq 'os2';
55
$Is_Cygwin = $^O eq 'cygwin';
56
+$Is_ZOS = $^O eq 'os390';
57
58
$PERL =
59
($Is_VMS ? $^X :
@@ -827,8 +828,8 @@ SKIP: {
827
828
if $Is_MSWin32 && is_miniperl;
829
830
SKIP: {
- skip("clearing \%ENV is not safe when running under valgrind or on VMS")
831
- 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")
832
+ if $ENV{PERL_VALGRIND} || $Is_VMS || ($Is_ZOS && ord "A" == 65);
833
834
$PATH = $ENV{PATH};
835
$SYSTEMROOT = $ENV{SYSTEMROOT} if exists $ENV{SYSTEMROOT}; # win32
0 commit comments