[win32] integrate mainline
[p5sagit/p5-mst-13.2.git] / t / lib / thread.t
old mode 100755 (executable)
new mode 100644 (file)
index 798adc1..b8e1b38
@@ -1,10 +1,10 @@
-#!perl
+#!./perl
 
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require Config; import Config;
-    if ($Config{'ccflags'} !~ /-DUSE_THREADS\b/) {
+    if (! $Config{'usethreads'}) {
        print "1..0\n";
        exit 0;
     }
@@ -49,6 +49,6 @@ join $t;
 
 # test that sleep lets other thread run
 $t = new Thread \&islocked,"ok 8\n";
-sleep 2;
+sleep 6;
 print "ok 9";
 join $t;