This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Handle the combination of dosish and non-faststdio.
[perl5.git] / t / io / layers.t
index 9a58de2..86712b3 100644 (file)
@@ -63,7 +63,7 @@ SKIP: {
            } else {
                $expected->[0] = $ENV{PERLIO} if $expected->[0] eq "stdio";
            }
-       } elsif (!$FASTSTDIO) {
+       } elsif (!$FASTSTDIO && !$DOSISH) {
            splice(@$result, 0, 2, "stdio")
                if @$result >= 2 &&
                   $result->[0] eq "unix" &&