Thanks Eric, but I will leave that for someone with better perl-foo skills than me. Perhaps it can be cleaned up for an official patch.<br><br><div class="gmail_quote">On Tue, Jan 4, 2011 at 2:42 AM, Eric Searcy <span dir="ltr">&lt;<a href="mailto:emsearcy@gmail.com">emsearcy@gmail.com</a>&gt;</span> wrote:<br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">On Jan 2, 2011, at 2:13 PM, John Altstadt wrote:<br>
<br>
[...]<br>
<div class="im">&gt;<br>
&gt; +     if (! -f $lock_file)<br>
&gt; +     {<br>
&gt; +         open(LOCK, &quot;+&gt;&quot;, $lock_file) or seppuku 150, &quot;cannot create $lock_file&quot;;<br>
&gt; +<br>
</div>[...]<br>
<div class="im">&gt;<br>
&gt; 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.<br>
<br>
</div>Good idea.  And for a suggestion: you should use a exclusive file lock (non-blocking to get the same behavior where you don&#39;t wait) to avoid the race condition that exists in the above code.<br>
<br>
<a href="http://perldoc.perl.org/perlopentut.html#File-Locking" target="_blank">http://perldoc.perl.org/perlopentut.html#File-Locking</a><br>
<font color="#888888"><br>
Eric</font><br>_______________________________________________<br>
Dirvish mailing list<br>
<a href="mailto:Dirvish@dirvish.org">Dirvish@dirvish.org</a><br>
<a href="http://www.dirvish.org/mailman/listinfo/dirvish" target="_blank">http://www.dirvish.org/mailman/listinfo/dirvish</a><br>
<br></blockquote></div><br>