Help for this page

Select Code to Download


  1. or download this
    use Mutex::Flock;

( my $mutex = Mutex::Flock->new( path => $0 ) )->lock_exclusive;

...
  2. or download this
    my $mutex = MCE::Mutex::Flock->new( path => $0 );

...
exit unless $mutex->timedwait(2);

...