leo11+2009-02-14 21:17:08--

Code (perl): (dl )

1
2
3
4
5

if (flock(LOG_FILE, &LOCK_EX)) {         # exclusive lock
...
    flock(LOG_FILE, &LOCK_UN) or die "Can't unlock logfile $!"; # unlock
}
close(LOG_FILE) or die "Can't close logfile $!";

dazu kann ich nur sagen: das LOCK_UN ist unnötig und sogar falsch. ein close() entfernt den
lock sowieso und ausserdem kann zwischen dem unlock und dem close auch ein anderer prozess
auf die datei zugreifen, da hast du somit eine race condition drin.