# try to create and lock a lockfile (this isn't atomic but
# should do for now
- $lockfn = "$root/perl/cluster.lck"; # lock file name
+ $lockfn = "$root/local/cluster.lck"; # lock file name
if (-e $lockfn) {
open(CLLOCK, "$lockfn") or die "Can't open Lockfile ($lockfn) $!";
my $pid = <CLLOCK>;
sub clean_inqueue
{
my $dxchan = shift;
- @inqueue = grep {$_ != $dxchan} @inqueue;
+ @inqueue = grep {$_->{dxchan} != $dxchan} @inqueue;
}
sub login
# load Prefixes
dbg("loading prefixes ...");
-my $r = Prefix::load();
+my $r = Prefix::init();
confess $r if $r;
dbg(USDB::init());