# modify it under the same terms as Perl itself.
#
-package Debug;
+package DWeather::Debug;
require Exporter;
@ISA = qw(Exporter);
use strict;
use vars qw(%dbglevel $fp);
-use SMGLog ();
+use DWeather::Logger;
use Carp qw(cluck);
%dbglevel = ();
);
}
-dbginit();
-
sub dbg
{
my $t = time;
$SIG{__DIE__} = sub { dbg($@, Carp::longmess(@_)); };
}
- $fp = SMGLog->new('debug', 'dat', 'd');
+ $fp = DWeather::Logger->new('debug', 'log', 'd') unless $fp;
}
sub dbgclose