… | |
… | |
45 | |
45 | |
46 | BEGIN { |
46 | BEGIN { |
47 | $SIG{__DIE__} = sub { |
47 | $SIG{__DIE__} = sub { |
48 | return if $^S; # quick reject |
48 | return if $^S; # quick reject |
49 | |
49 | |
50 | # return if there are any eval contexts in the csall stack |
50 | # return if there are any eval contexts in the call stack |
51 | for my $i (0..999) { |
51 | for my $i (0..999) { |
52 | my ($sub, $is_require) = (caller $i)[3, 7] |
52 | my ($sub, $is_require) = (caller $i)[3, 7] |
53 | or last; |
53 | or last; |
54 | return if $sub eq "(eval)" && !$is_require; |
54 | return if $sub eq "(eval)" && !$is_require; |
55 | } |
55 | } |