Entry tags:
(no subject)
use Proc::PID::File;
if ( my $pid = Proc::PID::File->running({dir=>'/opt/project/temp', verify=>1}) ) {
die 'Already running, pid='.$pid;
}
via http://perl.blogit.ru/2006/07/14/11
if ( my $pid = Proc::PID::File->running({dir=>'/opt/project/temp', verify=>1}) ) {
die 'Already running, pid='.$pid;
}
via http://perl.blogit.ru/2006/07/14/11