On Jan 2, 2011, at 2:13 PM, John Altstadt wrote:
[...]
>
> + if (! -f $lock_file)
> + {
> + open(LOCK, "+>", $lock_file) or seppuku 150, "cannot create
> $lock_file";
> +
[...]
>
> I felt it was about time I contributed something back to the community again.
> Please feel free to use this patch or criticize it as you see fit. It works
> for me.Good idea. And for a suggestion: you should use a exclusive file lock (non-blocking to get the same behavior where you don't wait) to avoid the race condition that exists in the above code. http://perldoc.perl.org/perlopentut.html#File-Locking Eric
PGP.sig
Description: This is a digitally signed message part
_______________________________________________ Dirvish mailing list [email protected] http://www.dirvish.org/mailman/listinfo/dirvish
