diff options
author | Craig A. Berry <craigberry@mac.com> | 2013-11-07 18:51:03 -0600 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2013-11-07 20:55:39 -0600 |
commit | 20c299101f473656d21098933ebc26eaa709d37d (patch) | |
tree | 5fbbc895c0809236535a75fe378ea704c9f3f397 /t/thread_it.pl | |
parent | 35e037e8469de48b1a1e6c7d85c65b342abdfbcf (diff) | |
download | perl-20c299101f473656d21098933ebc26eaa709d37d.tar.gz |
More stack for pat_thr.t on VMS as well.
Follow-up to 66478a1b30 and 58b6d14529f.
Diffstat (limited to 't/thread_it.pl')
-rw-r--r-- | t/thread_it.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/thread_it.pl b/t/thread_it.pl index 751d76499e..7fc145aeb9 100644 --- a/t/thread_it.pl +++ b/t/thread_it.pl @@ -30,9 +30,11 @@ note('running tests in a new thread'); # 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. my $curr = threads->create({ stack_size => $^O eq 'hpux' ? 524288 : - $^O eq 'darwin' ? 1000000: 0, + $^O eq 'darwin' ? 1000000: + $^O eq 'VMS' ? 150000 : 0, }, sub { run_tests(); return defined &curr_test ? curr_test() : () |