diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-06-26 21:25:15 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-06-26 21:25:15 +0000 |
| commit | dd5ef8e06fad97042101d2f0784676bb2111654b (patch) | |
| tree | a19986b9fac38e683bb2a7f47e43181c71349db6 /t/op/threads.t | |
| parent | b8328daed2539ae075bccc60f3e5bb4b34f39c28 (diff) | |
| download | perl-dd5ef8e06fad97042101d2f0784676bb2111654b.tar.gz | |
avoid double-free of the thread function
p4raw-id: //depot/perl@31475
Diffstat (limited to 't/op/threads.t')
| -rw-r--r-- | t/op/threads.t | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/t/op/threads.t b/t/op/threads.t index cb6fda6fa2..bd4009ce5a 100644 --- a/t/op/threads.t +++ b/t/op/threads.t @@ -114,11 +114,6 @@ use threads; print do 'op/threads_create.pl' || die $@; EOI - -TODO: { - no strict 'vars'; # Accessing $TODO from test.pl - local $TODO = 'refcount issues with threads'; - # Attempt to free unreferenced scalar... fresh_perl_is(<<'EOI', 'ok', { }, 'thread sub via scalar'); use threads; @@ -135,6 +130,12 @@ fresh_perl_is(<<'EOI', 'ok', { }, 'thread sub via $_[0]'); print 'ok'; EOI +TODO: { + no strict 'vars'; # Accessing $TODO from test.pl + local $TODO = 'refcount issues with threads'; + + + # Scalars leaked: 1 foreach my $BLOCK (qw(CHECK INIT)) { fresh_perl_is(<<EOI, 'ok', { }, "threads in $BLOCK block"); |