1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
#!./perl
use v5.36;
# This test checks for RT #123878/GH #14527, keeping the die handler still
# disabled into goto'd function. And the other documented
# exceptions to enable dying from a die handler.
print "1..5\n";
eval {
sub f1 { die "ok 1\n" }
$SIG{__DIE__} = \&f1;
die;
};
print $@;
eval {
sub foo1 { die "ok 2\n" }
sub bar1 { foo1() }
$SIG{__DIE__} = \&bar1;
die;
};
print $@;
# GH #14527
eval {
sub foo2 { die "ok 3\n" }
sub bar2 { goto &foo2 }
$SIG{__DIE__} = \&bar2;
die;
};
print $@;
# Deep recursion on subroutine "main::foo2" at t/op/die_goto.t line 35.
# Segmentation fault (core dumped)
# GH #22987 (die)
eval {
sub foo3 { die "ok 4\n" }
sub bar3 { { local $SIG{__DIE__}; } goto &foo3 }
$SIG{__DIE__} = \&bar3;
die;
};
print $@;
# Deep recursion on subroutine "main::foo3" at t/op/die_goto.t line 46.
# Segmentation fault (core dumped)
# GH #22984
eval {
my $called = 0;
sub hybrid {
$called++;
die "$called\n";
}
$SIG{__DIE__} = \&hybrid;
hybrid;
};
print $@ eq "2\n" ? "ok 5\n" : "not ok 5\n" . "\$\@ = $@" =~ s/^/# /mgr;
|
