X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLog.pm;h=9f15c225f40dea9a01f7ce5b5aae8e9110fab522;hb=d856b7a8fa2eafb3b2901d4bef9565221e7cf6a2;hp=17559b36fe62577d2b53cef0c8f9f810d225c5ba;hpb=9da1742219a27b1c02fd57794412088e4d7b3d1d;p=spider.git diff --git a/perl/DXLog.pm b/perl/DXLog.pm index 17559b36..9f15c225 100644 --- a/perl/DXLog.pm +++ b/perl/DXLog.pm @@ -31,9 +31,9 @@ require Exporter; use IO::File; use DXVars; -# use DXDebug (); use DXUtil; use Julian; + use Carp; use strict; @@ -83,7 +83,7 @@ sub open $self->{year} = $year; $self->{thing} = $thing; -# DXDebug::dbg("dxlog", "opening $self->{fn}\n"); +# DXDebug::dbg("opening $self->{fn}\n") if isdbg("dxlog"); return $self->{fh}; }