some little detail changes for permissions and crashes in large

cluster lists

diff --git a/perl/DXLog.pm b/perl/DXLog.pm
index dde723027f5b237afd735c4452eeafd1b7a42a02..8cc6f8504b35a842304b2443e1f3d9ac23dc3d23 100644 (file)
--- 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 4a81a585616318756a0832a539815c442d3e3bea..5fc16bd0ae569c6ed234374ece65e6d73b6d5001 100644 (file)
--- 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) {