mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix pid file writing

Browse source 
need to truncate, or part of previous longer pid may be left after writing
This commit is contained in:
Joey Hess 2012-06-15 20:41:28 -04:00
parent 59abd787c9
commit 96ac25094b
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Utility/Daemon.hs
View file

@ -44,7 +44,8 @@ daemonize logfd pidfile changedirectory a = do
lockPidFile :: Bool -> IO () -> FilePath -> IO () lockPidFile :: Bool -> IO () -> FilePath -> IO ()
lockPidFile write onfailure file = do lockPidFile write onfailure file = do
fd <- openFd file ReadWrite (Just stdFileMode) defaultFileFlags fd <- openFd file ReadWrite (Just stdFileMode)
defaultFileFlags { trunc = write }
locked <- catchMaybeIO $ setLock fd (locktype, AbsoluteSeek, 0, 0) locked <- catchMaybeIO $ setLock fd (locktype, AbsoluteSeek, 0, 0)
case locked of case locked of
Nothing -> onfailure Nothing -> onfailure