gistfile1.txt

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");
 }