Guest User

Untitled

a guest
Nov 17th, 2018
101
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.50 KB | None | 0 0
  1. diff --git a/dist/IO/t/io_xs.t b/dist/IO/t/io_xs.t
  2. index 968b3f5..9478f00 100644
  3. --- a/dist/IO/t/io_xs.t
  4. +++ b/dist/IO/t/io_xs.t
  5. @@ -43,7 +43,7 @@ SKIP:
  6. {
  7. $^O eq "MSWin32"
  8. and skip "directory sync doesn't apply to MSWin32", 1;
  9. - open my $dh, "<", "."
  10. - or skip "Cannot open the cwd", 1;
  11. - ok($dh->sync, "sync to a read only directory handle");
  12. + open my $fh, "<", "io_xs.t"
  13. + or skip "Cannot open io_xs.t read-only", 1;
  14. + ok($fh->sync, "sync to a read only handle");
  15. }
Add Comment
Please, Sign In to add comment