From: djk <djk>
Date: Sun, 17 Jan 1999 21:38:52 +0000 (+0000)
Subject: some little detail changes for permissions and crashes in large
X-Git-Tag: R_1_23~8
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=49e5783b757e86e6a7949ad00572c8fe6e58f293;p=spider.git

some little detail changes for permissions and crashes in large
cluster lists
---

diff --git a/perl/DXLog.pm b/perl/DXLog.pm
index dde72302..8cc6f850 100644
--- a/perl/DXLog.pm
+++ b/perl/DXLog.pm
@@ -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;
diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 4a81a585..5fc16bd0 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -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) {