load_or_skip('Devel::CallParser', undef, undef, 1);
load_or_skip('Devel::CallParser', undef, undef, 1);
my $has_package_empty = do {
local $@;
eval 'no warnings "deprecated"; package; 1'
};
skip 'Empty package only available on perl 5.8.x and below' => 1
unless $has_package_empty;
my $has_package_empty = do {
local $@;
eval 'no warnings "deprecated"; package; 1'
};
skip 'Empty package only available on perl 5.8.x and below' => 1
unless $has_package_empty;
my $tests = 2;
skip 'fork() or pseudo-forks are required to check END blocks in subprocesses'
=> $tests unless defined $fork_status;
my $tests = 2;
skip 'fork() or pseudo-forks are required to check END blocks in subprocesses'
=> $tests unless defined $fork_status;
=> $tests unless $fork_status == 0;
my $status = run_perl 'require indirect; END { eval q[1] } my $pid = fork; exit 0 unless defined $pid; if ($pid) { waitpid $pid, 0; my $status = $?; exit(($status >> 8) || $status) } else { exit 0 }';
=> $tests unless $fork_status == 0;
my $status = run_perl 'require indirect; END { eval q[1] } my $pid = fork; exit 0 unless defined $pid; if ($pid) { waitpid $pid, 0; my $status = $?; exit(($status >> 8) || $status) } else { exit 0 }';
is $status, 0, 'indirect and global END blocks executed at the end of a forked process (RT #99083)';
$status = run_perl 'require indirect; my $pid = fork; exit 0 unless defined $pid; if ($pid) { waitpid $pid, 0; my $status = $?; exit(($status >> 8) || $status) } else { eval q[END { eval q(1) }]; exit 0 }';
is $status, 0, 'indirect and global END blocks executed at the end of a forked process (RT #99083)';
$status = run_perl 'require indirect; my $pid = fork; exit 0 unless defined $pid; if ($pid) { waitpid $pid, 0; my $status = $?; exit(($status >> 8) || $status) } else { eval q[END { eval q(1) }]; exit 0 }';