author | wenzelm |
Sat, 20 Dec 2008 11:55:34 +0100 | |
changeset 29145 | b1c6f4563df7 |
parent 26107 | 4b5e5fc1d11f |
child 34197 | aecdcaaa8ff3 |
permissions | -rw-r--r-- |
# # Author: Makarius # # system.pl - invoke shell command line (with robust signal handling) # # args ($group, $script_name, $pid_name, $output_name) = @ARGV; # process id if ($group eq "group") { use POSIX "setsid"; POSIX::setsid || die $!; } open (PID_FILE, ">", $pid_name) || die $!; print PID_FILE "$$\n"; close PID_FILE; # exec script $SIG{'INT'} = "DEFAULT"; #paranoia setting, required for Cygwin exec qq/exec bash '$script_name' > '$output_name'/;