view release on metacpan or  search on metacpan

t/IO-Die.t  view on Meta::CPAN

                $^E = 5;

                IO::Die->kill( 'TERM', $parent_pid );
            };
            if ($@) {
                print {$wtr} join( $/, 0 + $!, 0 + $^E, $@ );
            }
        };

        close $wtr;
        my @res = split m<$/>, do { local $/; <$rdr> };
        close $rdr;

        do { local $?; waitpid $parasite_pid, 0 };

        if ($got_SIGTERM) {
            skip "$^O: Unprivileged child process can SIGTERM a root-owned parent process?!?", 5;
        }

        is( $res[0], 5, 'kill() doesn’t affect $! on failure' );
        is( $res[1], 5, 'kill() doesn’t affect $^E on failure' );