attempt to get rid of some of the useless messages on program exit

[spider.git] / perl / DXLog.pm

diff --git a/perl/DXLog.pm b/perl/DXLog.pm
index dde723027f5b237afd735c4452eeafd1b7a42a02..2dc6d2feec4136958eb46678f953137ecf5343b5 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;
@@ -177,7 +177,7 @@ sub Log
 sub DESTROY                                            # catch undefs and do what is required further down the tree
 {
        my $self = shift;
-       DXDebug::dbg("dxlog", "closing $self->{fn}\n");
+#      DXDebug::dbg("dxlog", "closing $self->{fn}\n");
        undef $self->{fh} if defined $self->{fh};
 } 
 1;