# try to create and lock a lockfile (this isn't atomic but
# should do for now
- my $lockfn = "$root/perl/cluster.lock"; # lock file name
+ $lockfn = "$root/perl/cluster.lck"; # lock file name
if (-e $lockfn) {
open(CLLOCK, "$lockfn") or die "Can't open Lockfile ($lockfn) $!";
my $pid = <CLLOCK>;
close CLLOCK;
$is_win = ($^O =~ /^MS/ || $^O =~ /^OS-2/) ? 1 : 0; # is it Windows?
-
+ $systime = time;
}
use Msg;
$systime = 0; # the time now (in seconds)
$version = "1.47"; # the version no of the software
$starttime = 0; # the starting time of the cluster
-$lockfn = "cluster.lock"; # lock file name
#@outstanding_connects = (); # list of outstanding connects
@listeners = (); # list of listeners
dbg('chan', "-> D $call $mess\n");
$conn->send_now("D$call|$mess");
- Msg->sleep(2);
+ sleep(2);
$conn->disconnect;
}