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.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 23 Apr 2003 08:34:33 +0000 (08:34 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 23 Apr 2003 08:34:33 +0000 (08:34 +0000)
p4raw-id: //depot/perl@19310

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" &&