filecopy.t #3 fails on dos-djgpp

p4raw-id: //depot/perl@503

diff --git a/t/lib/filecopy.t b/t/lib/filecopy.t
index b718215..8a23fb6 100755 (executable)
--- a/t/lib/filecopy.t
+++ b/t/lib/filecopy.t
@@ -13,6 +13,7 @@ use File::Copy;
 
 # First we create a file
 open(F, ">file-$$") or die;
+binmode F; # for DOSISH platforms, because test 3 copies to stdout
 print F "ok 3\n";
 close F;