Work in non core env.

p4raw-id: //depot/perl@19705

diff --git a/ext/threads/t/basic.t b/ext/threads/t/basic.t
index 4236bf6..c228d70 100755 (executable)
--- a/ext/threads/t/basic.t
+++ b/ext/threads/t/basic.t
@@ -15,7 +15,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    push @INC, '../lib';
     require Config; import Config;
     unless ($Config{'useithreads'}) {
        print "1..0 # Skip: no useithreads\n";

diff --git a/ext/threads/t/end.t b/ext/threads/t/end.t
index f3dd92c..dd26042 100644 (file)
--- a/ext/threads/t/end.t
+++ b/ext/threads/t/end.t
@@ -4,7 +4,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    push @INC, '../lib';
     require Config; import Config;
     unless ($Config{'useithreads'}) {
         print "1..0 # Skip: no useithreads\n";

diff --git a/ext/threads/t/join.t b/ext/threads/t/join.t
index 5ffc6c9..bcd813d 100644 (file)
--- a/ext/threads/t/join.t
+++ b/ext/threads/t/join.t
@@ -1,6 +1,6 @@
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    push @INC, '../lib';
     require Config; import Config;
     unless ($Config{'useithreads'}) {
         print "1..0 # Skip: no useithreads\n";

diff --git a/ext/threads/t/libc.t b/ext/threads/t/libc.t
index 409945a..f0567ba 100644 (file)
--- a/ext/threads/t/libc.t
+++ b/ext/threads/t/libc.t
@@ -1,7 +1,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    push @INC, '../lib';
     require Config; import Config;
     unless ($Config{'useithreads'}) {
         print "1..0 # Skip: no useithreads\n";

diff --git a/ext/threads/t/list.t b/ext/threads/t/list.t
index 60bf209..193546f 100644 (file)
--- a/ext/threads/t/list.t
+++ b/ext/threads/t/list.t
@@ -1,7 +1,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    push @INC, '../lib';
     require Config; import Config;
     unless ($Config{'useithreads'}) {
         print "1..0 # Skip: no useithreads\n";

diff --git a/ext/threads/t/problems.t b/ext/threads/t/problems.t
index a7b6c34..7d0ee2f 100644 (file)
--- a/ext/threads/t/problems.t
+++ b/ext/threads/t/problems.t
@@ -1,7 +1,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    push @INC, '../lib';
     require Config; import Config;
     unless ($Config{'useithreads'}) {
        print "1..0 # Skip: no useithreads\n";

diff --git a/ext/threads/t/stress_cv.t b/ext/threads/t/stress_cv.t
index eb2bab1..407a7fd 100644 (file)
--- a/ext/threads/t/stress_cv.t
+++ b/ext/threads/t/stress_cv.t
@@ -1,6 +1,6 @@
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    push @INC, '../lib';
     require Config; import Config;
     unless ($Config{'useithreads'}) {
        print "1..0 # Skip: no useithreads\n";

diff --git a/ext/threads/t/stress_re.t b/ext/threads/t/stress_re.t
index e5daf90..aa89b19 100644 (file)
--- a/ext/threads/t/stress_re.t
+++ b/ext/threads/t/stress_re.t
@@ -1,6 +1,6 @@
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    push @INC, '../lib';
     require Config; import Config;
     unless ($Config{'useithreads'}) {
        print "1..0 # Skip: no useithreads\n";

diff --git a/ext/threads/t/stress_string.t b/ext/threads/t/stress_string.t
index 23449d2..3cd1e8e 100644 (file)
--- a/ext/threads/t/stress_string.t
+++ b/ext/threads/t/stress_string.t
@@ -1,6 +1,6 @@
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    push @INC, '../lib';
     require Config; import Config;
     unless ($Config{'useithreads'}) {
        print "1..0 # Skip: no useithreads\n";

diff --git a/ext/threads/t/thread.t b/ext/threads/t/thread.t
index d03975a..f0d8936 100644 (file)
--- a/ext/threads/t/thread.t
+++ b/ext/threads/t/thread.t
@@ -1,7 +1,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(../lib .);
+    push @INC, '../lib';
     require Config; import Config;
     unless ($Config{'useithreads'}) {
         print "1..0 # Skip: no useithreads\n";