Commit | Line | Data |
---|---|---|
3233f09d | 1 | package __SelfDestruct; |
2 | ||
3 | use warnings; | |
4 | use strict; | |
5 | ||
6 | sub spawn_n_kill (&) { | |
7 | { | |
8 | my $x = bless [ $_[1], ($INC{'threads.pm'} ? threads->tid : 0) ]; | |
9 | undef $x; | |
10 | } | |
11 | 1; | |
12 | } | |
13 | ||
14 | sub DESTROY { | |
15 | $_[0]->[0]->() unless ($_[0]->[1] and threads->tid != $_[0]->[1]); | |
16 | } | |
17 | ||
18 | 1; |