Date: Tue, 6 Feb 2007 12:41:05 -0800 From: "Josh Carroll" <josh.carroll@gmail.com> To: "Don O'Neil" <don@lizardhill.com> Cc: freebsd-questions@freebsd.org Subject: Re: Problems with perl script on 6.1/5.8.8 Message-ID: <8cb6106e0702061241w51fe2be0s142eafc08ef278cf@mail.gmail.com> In-Reply-To: <005501c74a2c$d4f45fb0$0300020a@mickey> References: <005501c74a2c$d4f45fb0$0300020a@mickey>
next in thread | previous in thread | raw e-mail | index | archive | help
> Can't modify single ref constructor in lock at ./caldisp.pl line 84, near
> "*LOCKF)"
> Execution of ./caldisp.pl aborted due to compilation errors.
I'm not sure what has changed in Perl 5.8, but this should work instead:
if(open my $fh, "> $LOCKF") {
lock($fh);
}
Josh
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?8cb6106e0702061241w51fe2be0s142eafc08ef278cf>