Use minimal @INC in tests, most of the time just '../lib',

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

diff --git a/t/lib/io_linenum.t b/t/lib/io_linenum.t
index e981b95..cf55c98 100755 (executable)
--- a/t/lib/io_linenum.t
+++ b/t/lib/io_linenum.t
@@ -3,8 +3,6 @@
 # test added 29th April 1999 by Paul Johnson (pjcj@transeda.com)
 # updated    28th May   1999 by Paul Johnson
 
-use strict;
-
 my $File;
 
 BEGIN
@@ -15,7 +13,8 @@ BEGIN
     chdir 't';
     $File =~ s/^t\W+//;                                 # Remove first directory
   }
-  unshift @INC, '../lib' if -d '../lib';
+  @INC = '../lib';
+  require strict; import strict;
 }
 
 use Test;