(2nd revised) 1st patch to sync blead 'threads' with CPAN

[p5sagit/p5-mst-13.2.git] / ext / threads / t / list.t

diff --git a/ext/threads/t/list.t b/ext/threads/t/list.t
index f8f82d2..0e3c5b2 100644 (file)
--- a/ext/threads/t/list.t
+++ b/ext/threads/t/list.t
@@ -1,8 +1,12 @@
+use strict;
+use warnings;
 
 BEGIN {
-    chdir 't' if -d 't';
-    push @INC, '../lib';
-    require Config; import Config;
+    if ($ENV{'PERL_CORE'}){
+        chdir 't';
+        unshift @INC, '../lib';
+    }
+    use Config;
     unless ($Config{'useithreads'}) {
         print "1..0 # Skip: no useithreads\n";
         exit 0;
@@ -11,7 +15,6 @@ BEGIN {
 
 use ExtUtils::testlib;
 
-use strict;
 
 
 BEGIN { $| = 1; print "1..8\n" };