X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXLog.pm;fp=perl%2FDXLog.pm;h=8cc6f8504b35a842304b2443e1f3d9ac23dc3d23;hb=49e5783b757e86e6a7949ad00572c8fe6e58f293;hp=dde723027f5b237afd735c4452eeafd1b7a42a02;hpb=d16a47c69c71370281d87c975bc6089d976eaa7b;p=spider.git

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;