--- perl5.004_55/t/lib/filecopy.t	Tue Nov 25 06:55:28 1997
+++ perl5.004_55.nothr/t/lib/filecopy.t	Sat Nov 29 11:31:16 1997
@@ -28,6 +28,7 @@
 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: $!";
 
