diff options
| -rw-r--r-- | 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 c8ed34a7a1..48ead65b00 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 |