some little detail changes for permissions and crashes in large

cluster lists
This commit is contained in:
djk 1999-01-17 21:38:52 +00:00
parent d16a47c69c
commit 49e5783b75
2 changed files with 2 additions and 2 deletions

View File

@ -75,7 +75,7 @@ sub open
$mode = 'r' if !$mode;
$self->{mode} = $mode;
my $fh = new FileHandle $self->{fn}, $mode;
my $fh = new FileHandle $self->{fn}, $mode, 0666;
return undef if !$fh;
$fh->autoflush(1) if $mode ne 'r'; # make it autoflushing if writable
$self->{fh} = $fh;

View File

@ -504,7 +504,7 @@ sub queue_msg
}
if ($clref && !grep { $clref->{dxchan} == $_ } DXCommandmode::get_all) {
$dxchan = $clref->{dxchan};
$ref->start_msg($dxchan) if $clref && !get_busy($dxchan->call) && $dxchan->state eq 'normal';
$ref->start_msg($dxchan) if $dxchan && $clref && !get_busy($dxchan->call) && $dxchan->state eq 'normal';
}
}
} elsif (!$sort) {