diff --git a/t/op/readline_nb.t b/t/op/readline_nb.t
index 8c8037eefd07..fe04e0f6446d 100644
--- a/t/op/readline_nb.t
+++ b/t/op/readline_nb.t
@@ -9,6 +9,9 @@ BEGIN {
     skip_all_if_miniperl();
 }
 
+$^O eq "MSWin32"
+    and skip_all("Win32 can't make a pipe non-blocking");
+
 use strict;
 use IO::Select;