applied patch, and undid change#1302 which it made unnecessary
[p5sagit/p5-mst-13.2.git] / t / lib / filecopy.t
index e4bde30..329931f 100755 (executable)
@@ -29,7 +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
+binmode STDOUT unless $^O eq 'VMS';                    # Copy::copy works in binary mode
 copy "copy-$$", \*STDOUT;
 unlink "copy-$$" or die "unlink: $!";