X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=DWeather%2Flib%2FDWeather%2FDebug.pm;fp=DWeather%2Flib%2FDWeather%2FDebug.pm;h=3535184b3461918e1d853ea9a946f04de2417d1e;hb=631bc0f2b224c9ebfd1dd5827814e5aba3e6d023;hp=bf815202b79d42cd0067f2c84883ea8197eb2140;hpb=dc4a7b485f2c395471e3f7b64667da3625dcdc64;p=dweather.git

diff --git a/DWeather/lib/DWeather/Debug.pm b/DWeather/lib/DWeather/Debug.pm
index bf81520..3535184 100644
--- 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