Re: [PATCH] Tests for File::Compare

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

diff --git a/t/lib/filecopy.t b/t/lib/filecopy.t
index b6fcbea..8412258 100755 (executable)
--- a/t/lib/filecopy.t
+++ b/t/lib/filecopy.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    @INC = '../lib';
 }
 
 $| = 1;
@@ -15,8 +15,6 @@ use File::Copy;
 
 for my $pass (@pass) {
 
-  require File::Copy;
-
   my $loopconst = $pass*$tests;
 
   # First we create a file
@@ -96,10 +94,6 @@ for my $pass (@pass) {
       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"};
-
 }