[perl.git] branch blead, updated. v5.11.2-70-g7c76c2a

[Jesse Vincent]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/7c76c2a0d87e7bfac7012fb2b38100addc903e9d?hp=789c461534f3eb0346447f8127786b7da3017f6c>

- Log -----------------------------------------------------------------
commit 7c76c2a0d87e7bfac7012fb2b38100addc903e9d
Author: Jerry D. Hedden <jdhe...@cpan.org>
Date: Tue Nov 24 16:26:08 2009 -0500

Add TODO test for perl #70748
-----------------------------------------------------------------------

Summary of changes:
t/op/threads.t | 17 +++++++++++++++++
1 files changed, 17 insertions(+), 0 deletions(-)

diff --git a/t/op/threads.t b/t/op/threads.t
index c8ed34a..48ead65 100644
--- a/t/op/threads.t
+++ b/t/op/threads.t
@@ -191,4 +191,21 @@ undef *a;
threads->new(sub {})->join;
pass("undefing a typeglob doesn't cause a crash during cloning");

+
+TODO: {
+ no strict 'vars'; # Accessing $TODO from test.pl
+ local $TODO = 'perl #70748';
+
+# Test we don't get:
+# panic: del_backref during global destruction.
+fresh_perl_is(<<'EOI', 'ok', { }, 'No del_backref panic');
+use threads;
+sub foo { return (sub { }); }
+my $bar = threads->create(\&foo)->join();
+threads->create(sub { })->join();
+print "ok";
+EOI
+
+} # TODO
+
# EOF

--
Perl5 Master Repository