1 |
root |
1.1 |
BEGIN { $| = 1; print "1..4\n"; } |
2 |
|
|
|
3 |
|
|
use Devel::FindRef; |
4 |
|
|
use Scalar::Util qw(weaken); |
5 |
|
|
|
6 |
|
|
my $y; |
7 |
|
|
my @y = (2, \$y, [4, 5, \$y, \$y], {a => \$y}); |
8 |
|
|
weaken $y[2][2]; |
9 |
|
|
|
10 |
|
|
#print |
11 |
|
|
Devel::FindRef::track \$y; |
12 |
|
|
print "ok 1\n"; |
13 |
|
|
|
14 |
|
|
sub THREE { 3 } |
15 |
|
|
|
16 |
|
|
#print |
17 |
|
|
Devel::FindRef::track \THREE; |
18 |
|
|
|
19 |
|
|
print "ok 2\n"; |
20 |
|
|
|
21 |
|
|
my $sub; $sub = sub { |
22 |
|
|
if( $_[0] ) { |
23 |
|
|
my $x = \$_[0]; |
24 |
|
|
--$$x; |
25 |
|
|
$sub->($_[0]); |
26 |
|
|
} else { |
27 |
|
|
#print |
28 |
|
|
Devel::FindRef::track \$_[0]; |
29 |
|
|
} |
30 |
|
|
}; |
31 |
|
|
|
32 |
|
|
my $level = 3; |
33 |
|
|
$sub->($level); |
34 |
|
|
|
35 |
|
|
print "ok 3\n"; |
36 |
|
|
|
37 |
|
|
sub { |
38 |
|
|
my $a = \$_[0]; |
39 |
|
|
my $b = \$a; |
40 |
|
|
#print |
41 |
|
|
Devel::FindRef::track \$_[0]; |
42 |
|
|
}->(20); |
43 |
|
|
print "ok 4\n"; |