support native integers, pack("L_",...) etc. (via private mail)

[p5sagit/p5-mst-13.2.git] / t / lib / thread.t

diff --git a/t/lib/thread.t b/t/lib/thread.t
index fecfb03..8d38523 100755 (executable)
--- a/t/lib/thread.t
+++ b/t/lib/thread.t
@@ -2,13 +2,15 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
     require Config; import Config;
     if (! $Config{'usethreads'}) {
        print "1..0\n";
        exit 0;
     }
-    $ENV{PERL_DESTRUCT_LEVEL} = 0;     # XXX known trouble with global destruction
+
+    # XXX known trouble with global destruction
+    $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3;
 }
 $| = 1;
 print "1..14\n";