Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- diff --git a/dist/IO/t/io_xs.t b/dist/IO/t/io_xs.t
- index 968b3f5..9478f00 100644
- --- a/dist/IO/t/io_xs.t
- +++ b/dist/IO/t/io_xs.t
- @@ -43,7 +43,7 @@ SKIP:
- {
- $^O eq "MSWin32"
- and skip "directory sync doesn't apply to MSWin32", 1;
- - open my $dh, "<", "."
- - or skip "Cannot open the cwd", 1;
- - ok($dh->sync, "sync to a read only directory handle");
- + open my $fh, "<", "io_xs.t"
- + or skip "Cannot open io_xs.t read-only", 1;
- + ok($fh->sync, "sync to a read only handle");
- }
Add Comment
Please, Sign In to add comment