support native integers, pack("L_",...) etc. (via private mail)

[p5sagit/p5-mst-13.2.git] / t / lib / filecopy.t

diff --git a/t/lib/filecopy.t b/t/lib/filecopy.t
index e4bde30..e461595 100755 (executable)
--- a/t/lib/filecopy.t
+++ b/t/lib/filecopy.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
 print "1..11\n";
@@ -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: $!";