diff options
| -rw-r--r-- | ext/threads/t/problems.t | 20 | ||||
| -rw-r--r-- | t/op/threads.t | 13 |
2 files changed, 14 insertions, 19 deletions
diff --git a/ext/threads/t/problems.t b/ext/threads/t/problems.t index 2cbab0007b..d979b3a512 100644 --- a/ext/threads/t/problems.t +++ b/ext/threads/t/problems.t @@ -29,9 +29,9 @@ BEGIN { $| = 1; if ($] == 5.008) { - print("1..12\n"); ### Number of tests that will be run ### + print("1..11\n"); ### Number of tests that will be run ### } else { - print("1..16\n"); ### Number of tests that will be run ### + print("1..15\n"); ### Number of tests that will be run ### } }; @@ -178,20 +178,4 @@ is(keys(%h), 1, "keys correct in parent with restricted hash"); $child = threads->create(sub { return (scalar(keys(%h))); })->join; is($child, 1, "keys correct in child with restricted hash"); - -# [perl #45053] Memory corruption with heavy module loading in threads -# -# run-time usage of newCONSTSUB (as done by the IO boot code) wasn't -# thread-safe - got occasional coredumps or malloc corruption - -{ - my @t; - push @t, threads->create( sub { require IO }) for 1..100; - $_->join for @t; - print("ok $test - [perl #45053]\n"); - $test++; -} - - - # EOF diff --git a/t/op/threads.t b/t/op/threads.t index e52a115004..8dadfb3a6c 100644 --- a/t/op/threads.t +++ b/t/op/threads.t @@ -16,7 +16,7 @@ BEGIN { exit 0; } - plan(9); + plan(10); } use strict; @@ -143,4 +143,15 @@ EOI } # TODO +# [perl #45053] Memory corruption with heavy module loading in threads +# +# run-time usage of newCONSTSUB (as done by the IO boot code) wasn't +# thread-safe - got occasional coredumps or malloc corruption +{ + my @t; + push @t, threads->create( sub { require IO }) for 1..100; + $_->join for @t; + ok(1, '[perl #45053]'); +} + # EOF |