skip 'Fixed in core only since 5.12' => 1 unless "$]" >= 5.012;
my $status = run_perl 'no indirect hook => sub { exit 2 }; new X';
skip 'Fixed in core only since 5.12' => 1 unless "$]" >= 5.012;
my $status = run_perl 'no indirect hook => sub { exit 2 }; new X';
load_or_skip('Devel::CallParser', undef, undef, 1);
my $status = run_perl "use Devel::CallParser (); no indirect; sub ok { } ok 1";
load_or_skip('Devel::CallParser', undef, undef, 1);
my $status = run_perl "use Devel::CallParser (); no indirect; sub ok { } ok 1";
unless $has_package_empty;
my $status = run_perl 'no indirect hook => sub { }; exit 0; package; new X;';
unless $has_package_empty;
my $status = run_perl 'no indirect hook => sub { }; exit 0; package; new X;';
=> $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 }';