From owner-freebsd-questions@FreeBSD.ORG  Tue Feb  6 20:24:44 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 7C7EC16A401
	for <freebsd-questions@freebsd.org>;
	Tue,  6 Feb 2007 20:24:44 +0000 (UTC)
	(envelope-from don@lizardhill.com)
Received: from kermit.lizardhill.com (kermit.lizardhill.com [64.69.41.217])
	by mx1.freebsd.org (Postfix) with ESMTP id 5EA2313C467
	for <freebsd-questions@freebsd.org>;
	Tue,  6 Feb 2007 20:24:44 +0000 (UTC)
	(envelope-from don@lizardhill.com)
Received: from ip72-193-85-114.lv.lv.cox.net ([72.193.85.114] helo=mickey)
	by kermit.lizardhill.com with esmtp (Exim 4.62)
	(envelope-from <don@lizardhill.com>) id 1HEWrs-0001Wm-0s
	for freebsd-questions@freebsd.org; Tue, 06 Feb 2007 12:24:44 -0800
From: "Don O'Neil" <don@lizardhill.com>
To: <freebsd-questions@freebsd.org>
Date: Tue, 6 Feb 2007 12:24:41 -0800
Message-ID: <005501c74a2c$d4f45fb0$0300020a@mickey>
MIME-Version: 1.0
Content-Type: text/plain;
	charset="us-ascii"
Content-Transfer-Encoding: 7bit
X-Mailer: Microsoft Office Outlook 11
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3028
Thread-Index: AcdKLNTc9HkpeV8YSOyPvrRh9IwReg==
Subject: Problems with perl script on 6.1/5.8.8
X-BeenThere: freebsd-questions@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
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:24:44 -0000

I've got a perl script that just refuses to run on my new 6.1 box with Perl
5.8.8... Whenever I run it from the command line I get this:

Can't modify single ref constructor in lock at ./caldisp.pl line 84, near
"*LOCKF)"
Execution of ./caldisp.pl aborted due to compilation errors.

The lines in question are:

if (open (LOCKF, ">$LOCKF"))
{
    lock (\*LOCKF);
}

Now the script work fine on my older 4.10 box with perl 5.6.1.

Anyone have any ideas on how to fix this?

Thanks!!!

P.S. Thanks for the 'doh!' from everyone on the 'rm' with scp... I didn't
even think of just using ssh!