X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLog.pm;h=8cc6f8504b35a842304b2443e1f3d9ac23dc3d23;hb=678715c76fa49f08acb30df0760b34407f49675c;hp=dde723027f5b237afd735c4452eeafd1b7a42a02;hpb=9a55af9586711ecdea8dc9b0da38509119fa8090;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;