Skip to content

Commit 44a1622

Browse files
committed
fix some issues, this will be squashed once I work out
what's happening with Win32
1 parent 6f737c9 commit 44a1622

File tree

1 file changed

+5
-2
lines changed

1 file changed

+5
-2
lines changed

t/io/perlio.t

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -246,18 +246,21 @@ EOP
246246
ok !$main::PerlIO_code_injection, "Can't inject code via PerlIO->import";
247247
}
248248

249+
SKIP:
249250
{
250-
use IO::Select;
251+
skip_without_dynamic_extension("IO", 8);
251252

252253
$Config{d_pipe}
253254
or skip("No pipe", 8);
254255

256+
require IO::Select;
257+
255258
my ($in, $out);
256259
pipe($in, $out)
257260
or skip("Cannot pipe: $!", 8);
258261

259262
$in->blocking(0)
260-
or skip_all("Cannot make pipe non-blocking");
263+
or skip("Cannot make pipe non-blocking", 8);
261264

262265
my $line = <$in>;
263266
is($line, undef, "error reading (readline)");

0 commit comments

Comments
 (0)