From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 25 Jun 2004 08:36:33 +0000 (+0000)
Subject: More @INC test fixes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=996dc718da1f4671fb1ddb6550d03837abe87d27;p=p5sagit%2Fp5-mst-13.2.git

More @INC test fixes

p4raw-id: //depot/perl@22994
---

diff --git a/t/op/threads.t b/t/op/threads.t
index 8709ece..b8fb9a6 100644
--- a/t/op/threads.t
+++ b/t/op/threads.t
@@ -1,7 +1,7 @@
 #!./perl
 BEGIN {
      chdir 't' if -d 't';
-     unshift @INC, '../lib';
+     @INC = '../lib';
      require './test.pl';	# for which_perl() etc
 }
 
diff --git a/t/run/switch_A.t b/t/run/switch_A.t
index 4204e64..d79f430 100755
--- a/t/run/switch_A.t
+++ b/t/run/switch_A.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    @INC = '../lib';
     require './test.pl';
 }
 
diff --git a/t/uni/chomp.t b/t/uni/chomp.t
index 12f1375..5f52558 100644
--- a/t/uni/chomp.t
+++ b/t/uni/chomp.t
@@ -3,7 +3,7 @@
 BEGIN {
     if ($ENV{'PERL_CORE'}){
         chdir 't';
-        unshift @INC, '../lib';
+        @INC = '../lib';
     }
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bEncode\b/) {
diff --git a/t/uni/tr_7jis.t b/t/uni/tr_7jis.t
index 5443880..54df6a0 100644
--- a/t/uni/tr_7jis.t
+++ b/t/uni/tr_7jis.t
@@ -8,7 +8,7 @@
 BEGIN {
     if ($ENV{'PERL_CORE'}){
         chdir 't';
-        unshift @INC, '../lib';
+        @INC = '../lib';
     }
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bEncode\b/) {
@@ -31,7 +31,6 @@ BEGIN {
 }
 
 use strict;
-#use Test::More qw(no_plan);
 use Test::More tests => 6;
 use Encode;
 use encoding 'iso-2022-jp';
diff --git a/t/uni/tr_eucjp.t b/t/uni/tr_eucjp.t
index 9d60079..03dec71 100644
--- a/t/uni/tr_eucjp.t
+++ b/t/uni/tr_eucjp.t
@@ -7,7 +7,7 @@
 BEGIN {
     if ($ENV{'PERL_CORE'}){
         chdir 't';
-        unshift @INC, '../lib';
+        @INC = '../lib';
     }
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bEncode\b/) {
@@ -30,7 +30,6 @@ BEGIN {
 }
 
 use strict;
-#use Test::More qw(no_plan);
 use Test::More tests => 6;
 use Encode;
 use encoding 'euc-jp';
diff --git a/t/uni/tr_sjis.t b/t/uni/tr_sjis.t
index 6fda9f2..9e05167 100644
--- a/t/uni/tr_sjis.t
+++ b/t/uni/tr_sjis.t
@@ -7,7 +7,7 @@
 BEGIN {
     if ($ENV{'PERL_CORE'}){
         chdir 't';
-        unshift @INC, '../lib';
+        @INC = '../lib';
     }
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bEncode\b/) {
@@ -30,7 +30,6 @@ BEGIN {
 }
 
 use strict;
-#use Test::More qw(no_plan);
 use Test::More tests => 6;
 use Encode;
 use encoding 'shiftjis';
diff --git a/t/uni/tr_utf8.t b/t/uni/tr_utf8.t
index 4b35c6d..606a84a 100644
--- a/t/uni/tr_utf8.t
+++ b/t/uni/tr_utf8.t
@@ -8,7 +8,7 @@
 BEGIN {
     if ($ENV{'PERL_CORE'}){
         chdir 't';
-        unshift @INC, '../lib';
+        @INC = '../lib';
     }
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bEncode\b/) {
@@ -31,7 +31,6 @@ BEGIN {
 }
 
 use strict;
-#use Test::More qw(no_plan);
 use Test::More tests => 7;
 
 use encoding 'utf8';