diff options
author | Jerry D. Hedden <jdhedden@cpan.org> | 2007-10-10 08:39:23 -0400 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-11 07:10:25 +0000 |
commit | f0d3b40c7e5cc0486a1c24aa761d8b25053600dc (patch) | |
tree | b10deecad24537c673d3636482cc79f9b81ac28d /ext/threads | |
parent | 3428fdd57721820eccc1fa98f243a42d5960bb64 (diff) | |
download | perl-f0d3b40c7e5cc0486a1c24aa761d8b25053600dc.tar.gz |
Move threads test added in change 32091
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510710100939v29aef6beqcb782934e641ea79@mail.gmail.com>
p4raw-id: //depot/perl@32098
Diffstat (limited to 'ext/threads')
-rw-r--r-- | ext/threads/t/problems.t | 20 |
1 files changed, 2 insertions, 18 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 |