From owner-freebsd-questions@FreeBSD.ORG  Tue Feb  6 20:41:07 2007
Return-Path: <owner-freebsd-questions@FreeBSD.ORG>
X-Original-To: freebsd-questions@freebsd.org
Delivered-To: freebsd-questions@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org [69.147.83.52])
	by hub.freebsd.org (Postfix) with ESMTP id 8F79716A401
	for <freebsd-questions@freebsd.org>;
	Tue,  6 Feb 2007 20:41:07 +0000 (UTC)
	(envelope-from josh.carroll@gmail.com)
Received: from ug-out-1314.google.com (ug-out-1314.google.com [66.249.92.172])
	by mx1.freebsd.org (Postfix) with ESMTP id 2B34B13C49D
	for <freebsd-questions@freebsd.org>;
	Tue,  6 Feb 2007 20:41:06 +0000 (UTC)
	(envelope-from josh.carroll@gmail.com)
Received: by ug-out-1314.google.com with SMTP id o2so1634771uge
	for <freebsd-questions@freebsd.org>;
	Tue, 06 Feb 2007 12:41:06 -0800 (PST)
DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=beta;
	h=received:message-id:date:from:reply-to:to:subject:cc:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:references;
	b=i7Smj/FibuFVrfn/RB/6wDwEcbw71N4kSoQsCzmOxqWoRXCaED4FhkKnJnuMqbju3212fl6lH2QPpKBHyhFwYZSpdynqI6srtuQMafcRsA4jtnfXAnxHMy7ktDr2RPR81CW6bTZmtL6IjsUBnTDnyM5sgBEhRaAJhEazRpDatZQ=
Received: by 10.82.183.19 with SMTP id g19mr4117405buf.1170794465599;
	Tue, 06 Feb 2007 12:41:05 -0800 (PST)
Received: by 10.82.163.14 with HTTP; Tue, 6 Feb 2007 12:41:05 -0800 (PST)
Message-ID: <8cb6106e0702061241w51fe2be0s142eafc08ef278cf@mail.gmail.com>
Date: Tue, 6 Feb 2007 12:41:05 -0800
From: "Josh Carroll" <josh.carroll@gmail.com>
To: "Don O'Neil" <don@lizardhill.com>
In-Reply-To: <005501c74a2c$d4f45fb0$0300020a@mickey>
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
References: <005501c74a2c$d4f45fb0$0300020a@mickey>
Cc: freebsd-questions@freebsd.org
Subject: Re: Problems with perl script on 6.1/5.8.8
X-BeenThere: freebsd-questions@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
Reply-To: josh.carroll@psualum.com
List-Id: User questions <freebsd-questions.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
	<mailto:freebsd-questions-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-questions>
List-Post: <mailto:freebsd-questions@freebsd.org>
List-Help: <mailto:freebsd-questions-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
	<mailto:freebsd-questions-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Tue, 06 Feb 2007 20:41:07 -0000

> 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