Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Explicit file locking support for pidfiles (see normal flock provisos)

Browse Source
This commit is contained in:
Chris 2014-02-01 19:13:20 +00:00
parent 91e3e2980d
commit 5d7b98dadb
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Webperl/Utils.pm
View File

@ -566,6 +566,7 @@ sub write_pid {
open(PIDFILE, "> $filename") open(PIDFILE, "> $filename")
or croak "FATAL: Unable to open PID file for writing: $!"; or croak "FATAL: Unable to open PID file for writing: $!";
flock(PIDFILE, 2);
print PIDFILE $$; print PIDFILE $$;
@ -584,6 +585,7 @@ sub read_pid {
open(PIDFILE, "< $filename") open(PIDFILE, "< $filename")
or croak "FATAL: Unable to open PID file for reading: $!"; or croak "FATAL: Unable to open PID file for reading: $!";
flock(PIDFILE, 1);
my $pid = <PIDFILE>; my $pid = <PIDFILE>;
close(PIDFILE); close(PIDFILE);