require.t needs binmode() to work on windows

p4raw-id: //depot/perl@6497

diff --git a/t/comp/require.t b/t/comp/require.t
index 418bc3e..bfd4a37 100755 (executable)
--- a/t/comp/require.t
+++ b/t/comp/require.t
@@ -19,6 +19,7 @@ sub do_require {
 sub write_file {
     my $f = shift;
     open(REQ,">$f") or die "Can't write '$f': $!";
+    binmode REQ;
     print REQ @_;
     close REQ;
 }