Help for this page

Select Code to Download


  1. or download this
    # Proc/PID/File.pm
sub alive {
...
        $self->{written} = 1;
# add this to file()
        $self->{written} = 0;
  2. or download this
    die "Already running!" if Proc::PID::File->new()->alive();