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 6f737c9 commit 44a1622Copy full SHA for 44a1622
t/io/perlio.t
@@ -246,18 +246,21 @@ EOP
246
ok !$main::PerlIO_code_injection, "Can't inject code via PerlIO->import";
247
}
248
249
+SKIP:
250
{
- use IO::Select;
251
+ skip_without_dynamic_extension("IO", 8);
252
253
$Config{d_pipe}
254
or skip("No pipe", 8);
255
256
+ require IO::Select;
257
+
258
my ($in, $out);
259
pipe($in, $out)
260
or skip("Cannot pipe: $!", 8);
261
262
$in->blocking(0)
- or skip_all("Cannot make pipe non-blocking");
263
+ or skip("Cannot make pipe non-blocking", 8);
264
265
my $line = <$in>;
266
is($line, undef, "error reading (readline)");
0 commit comments