[win32] merge change#886 from maintbranch

[perl5.git] / t / lib / filecopy.t

diff --git a/t/lib/filecopy.t b/t/lib/filecopy.t
index 8a23fb6..e4bde30 100755 (executable)
--- a/t/lib/filecopy.t
+++ b/t/lib/filecopy.t
@@ -29,6 +29,7 @@ print "ok 1\n";
 print "not " unless $foo eq "ok 3\n";
 print "ok 2\n";
 
+binmode STDOUT;                        # Copy::copy works in binary mode
 copy "copy-$$", \*STDOUT;
 unlink "copy-$$" or die "unlink: $!";