Help for this page

Select Code to Download

Select or download this

...
    setpgrp(0,0);
    sub killgroup {
...
    local *CATCHERR = IO::File->new_tmpfile;
    my $pid = open3(gensym, \*CATCHOUT, ">&CATCHERR", "$cmd $args");
...