From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Tue, 24 Nov 2009 21:26:08 +0000 (-0500)
Subject: Add TODO test for perl #70748
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7c76c2a0d87e7bfac7012fb2b38100addc903e9d;p=p5sagit%2Fp5-mst-13.2.git

Add TODO test for perl #70748
---

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