X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=092a01e058beac4a9959d0f6b10f9547ec0abe53;hb=98b37ab45d0325f4c2b45fca664457ab90fc1e20;hp=054a22ca718dbde98003e13f4824ff76b738ceca;hpb=c80c2aab681f6f691f7b9a5fa76cde2e938562c0;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 054a22ca..092a01e0 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -15,7 +15,7 @@ package main;
 require 5.10.1;
 use warnings;
 
-use vars qw($root $is_win $systime);
+use vars qw($root $is_win $systime $lockfn);
 
 # make sure that modules are searched in the order local then perl
 BEGIN {
@@ -48,7 +48,7 @@ BEGIN {
 
 	# try to create and lock a lockfile (this isn't atomic but
 	# should do for now
-	my $lockfn = "$root/local_data/cluster.lck";       # lock file name
+	$lockfn = "$root/local_data/cluster.lck";       # lock file name
 	if (-w $lockfn) {
 		open(CLLOCK, "$lockfn") or die "Can't open Lockfile ($lockfn) $!";
 		my $pid = <CLLOCK>;