diff options
Diffstat (limited to 't/io')
| -rw-r--r-- | t/io/fflush.t | 3 | ||||
| -rw-r--r-- | t/io/pipe.t | 5 |
2 files changed, 3 insertions, 5 deletions
diff --git a/t/io/fflush.t b/t/io/fflush.t index 4570f891b9..0bbfa545e6 100644 --- a/t/io/fflush.t +++ b/t/io/fflush.t @@ -19,12 +19,11 @@ use strict; # it here too or expect test gratuitous test failures. my $useperlio = defined $Config{useperlio} ? $Config{useperlio} eq 'define' ? 1 : 0 : 0; my $fflushNULL = defined $Config{fflushNULL} ? $Config{fflushNULL} eq 'define' ? 1 : 0 : 0; -my $d_sfio = defined $Config{d_sfio} ? $Config{d_sfio} eq 'define' ? 1 : 0 : 0; my $fflushall = defined $Config{fflushall} ? $Config{fflushall} eq 'define' ? 1 : 0 : 0; my $d_fork = defined $Config{d_fork} ? $Config{d_fork} eq 'define' ? 1 : 0 : 0; skip_all('fflush(NULL) or equivalent not available') - unless $useperlio || $fflushNULL || $d_sfio || $fflushall; + unless $useperlio || $fflushNULL || $fflushall; plan(tests => 7); diff --git a/t/io/pipe.t b/t/io/pipe.t index 50d589dc85..fdd8b992bf 100644 --- a/t/io/pipe.t +++ b/t/io/pipe.t @@ -147,11 +147,10 @@ SKIP: { if $^O eq 'VMS'; SKIP: { - # Sfio doesn't report failure when closing a broken pipe + # POSIX-BC doesn't report failure when closing a broken pipe # that has pending output. Go figure. - # Nor does POSIX-BC. skip "Won't report failure on broken pipe", 1 - if $Config{d_sfio} || $^O eq 'posix-bc'; + if $^O eq 'posix-bc'; local $SIG{PIPE} = 'IGNORE'; open NIL, qq{|$Perl -e "exit 0"} or die "open failed: $!"; |