BEGIN {
chdir 't' if -d 't';
- unshift @INC, '../lib';
+ @INC = '../lib';
}
$| = 1;
for my $pass (@pass) {
- require File::Copy;
-
my $loopconst = $pass*$tests;
# First we create a file
and not -e "file-$$";;
printf "ok %d\n", 11+$loopconst;
unlink "lib/file-$$" or die "unlink: $!";
-
- # warn sprintf "INC->".$INC{"File/Copy.pm"};
- delete $INC{"File/Copy.pm"};
-
}