wip

[dweather.git] / DWeather / lib / DWeather / Debug.pm

diff --git a/DWeather/lib/DWeather/Debug.pm b/DWeather/lib/DWeather/Debug.pm
index bf815202b79d42cd0067f2c84883ea8197eb2140..3535184b3461918e1d853ea9a946f04de2417d1e 100644 (file)
--- a/DWeather/lib/DWeather/Debug.pm
+++ b/DWeather/lib/DWeather/Debug.pm
@@ -10,7 +10,7 @@
 # modify it under the same terms as Perl itself.
 #
 
-package Debug;
+package DWeather::Debug;
 
 require Exporter;
 @ISA = qw(Exporter);
@@ -20,7 +20,7 @@ $VERSION = sprintf( "%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/ );
 use strict;
 use vars qw(%dbglevel $fp);
 
-use SMGLog ();
+use DWeather::Logger;
 use Carp qw(cluck);
 
 %dbglevel = ();
@@ -52,8 +52,6 @@ if (!defined $DB::VERSION) {
    );
 } 
 
-dbginit();
-
 sub dbg
 {
        my $t = time; 
@@ -78,7 +76,7 @@ sub dbginit
                $SIG{__DIE__} = sub { dbg($@, Carp::longmess(@_)); };
        }
 
-       $fp = SMGLog->new('debug', 'dat', 'd');
+       $fp = DWeather::Logger->new('debug', 'log', 'd') unless $fp;
 }
 
 sub dbgclose