SPUG: Perl Question?

[jerry gay]

On 12/13/05, jerry gay <jerry.gay at gmail.com> wrote:
> i have now had the pleasure of experiencing this scenario. not giving
> up on my favorite hack (above,) and finding a reference in my notes to
> it's source, i found and modified a similar locking example that works
> on platforms which don't allow exclusive locks on read-only files.
>
> INIT {
>     open ME => '+<', $0 or die "can't lock";
>     flock ME => LOCK_EX | LOCK_NB  or exit 1;
> }
>
of course, i forgot to provide the source... http://perl.plover.com/yak/flock/
~jerry