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 (file)
--- 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 (executable)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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';