Help for this page

Select Code to Download


  1. or download this
    return IO::File->new($file, O_WRONLY|O_CREAT|O_EXCL,0644)
  || die "Can't create $file: $!\n";
  2. or download this
    die "Server already running with PID $pid" if kill 0 => $pid;
  3. or download this
    if ($pid =~ /^(\d+)$/) {
  $pid = $1;
} else {
  die "funky pid read from $file!";
}