From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 28 May 1999 21:17:24 +0000 (+0000)
Subject: The new t/lib/io_linenum.t was using stricture
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=18bb47038c875d1c8e166d8a88f9ce1ece59f0e7;p=p5sagit%2Fp5-mst-13.2.git

The new t/lib/io_linenum.t was using stricture
before @INC was set up.

p4raw-id: //depot/cfgperl@3500
---

diff --git a/t/lib/io_linenum.t b/t/lib/io_linenum.t
index e981b95..3503215 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
@@ -16,6 +14,7 @@ BEGIN
     $File =~ s/^t\W+//;                                 # Remove first directory
   }
   unshift @INC, '../lib' if -d '../lib';
+  require strict; import strict;
 }
 
 use Test;