- skip $run_perl_failed => 1 unless defined $status;
- is $status, 0, 'indirect does not check eval STRING during global destruction at the end of a thread';
+ skip RUN_PERL_FAILED() => 1 unless defined $status;
+ my $code = $status >> 8;
+ is $code, 1, 'indirect checks eval STRING during global destruction at the end of a cloned thread';