some little detail changes for permissions and crashes in large

[spider.git] / perl / DXLog.pm

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;