Better document build dependency ordering

[perl5.git] / t / thread_it.pl

diff --git a/t/thread_it.pl b/t/thread_it.pl
index 37d4680..f38a580 100644 (file)
--- a/t/thread_it.pl
+++ b/t/thread_it.pl
@@ -19,14 +19,25 @@ my $caller = (caller)[1];
 die "Can't figure out which test to run from filename '$caller'"
     unless $caller =~ m!((?:op|re)/[-_a-z0-9A-Z]+)_thr\.t\z!;
 
-my $file = "$1.t";
+my $file = "./$1.t";
 
 $::running_as_thread = "running tests in a new thread";
 require $file;
 
 note('running tests in a new thread');
 
-my $curr = threads->create(sub {
+# Currently 59*4096 is the minimum stack size to just get t/re/pat_thr.t to
+# pass on HP-UX 64bit PA-RISC. The test for capture buffers (eg \87)
+# recurses heavily, and busts the default stack size (65536 on PA-RISC)
+# On Mac OS X under gcc and g++, the default stack size is also too small.
+# Ditto on VMS, although threshold varies by platform and -Dusevmsdebug.
+# Same on AIX
+my $curr = threads->create({
+                            stack_size => $^O eq 'hpux'   ? 524288 :
+                                          $^O eq 'darwin' ? 2000000:
+                                          $^O eq 'VMS'    ? 150000 :
+                                          $^O eq 'aix'    ? 1500000 : 0,
+                           }, sub {
                               run_tests();
                               return defined &curr_test ? curr_test() : ()
                           })->join();