BEGIN {
chdir 't' if -d 't';
- @INC = '../lib';
+ unshift @INC, '../lib';
}
print "1..11\n";
# 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;
print "not " unless $foo eq "ok 3\n";
print "ok 2\n";
+binmode STDOUT unless $^O eq 'VMS'; # Copy::copy works in binary mode
copy "copy-$$", \*STDOUT;
unlink "copy-$$" or die "unlink: $!";