Help for this page

Select Code to Download

Select or download this

use POSIX ":sys_wait_h"; # Didn't do this before.
my $spid;
...
            }
        }
    }

Select or download this

my $der = waitpid($spid,WNOHANG);
                    if($der==-1) {
                        print STDOUT "Time to re-launch\n";
                        open(STDERR,">> $logfile");
                        $spid = open2(*SREAD, *SWRITE, "$program @prog
+_options");
                    }