X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fio_linenum.t;h=cf55c980eafb0ea78b99907eaa535bc7d1df7a56;hb=20822f61cc01ab34be1e17db483aceb9d5ec8fb7;hp=e981b951aab3a9f09f54903def2bd3ecb11fb41b;hpb=1e374101a32f2df640b9fad36d86b2ed88f6eaf8;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/io_linenum.t b/t/lib/io_linenum.t
index e981b95..cf55c98 100755
--- 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;