Send wind even if it hasn't changed

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

diff --git a/DWeather/lib/DWeather/Debug.pm b/DWeather/lib/DWeather/Debug.pm
index bf815202b79d42cd0067f2c84883ea8197eb2140..594d9372c0ee8d31911db1bf819409d2679dd686 100644 (file)
--- a/DWeather/lib/DWeather/Debug.pm
+++ b/DWeather/lib/DWeather/Debug.pm
@@ -4,24 +4,25 @@
 #
 # Copyright (c) 1998 - Dirk Koopman G1TLH
 #
-# $Id: Debug.pm,v 1.1 2001/05/18 14:02:10 djk Exp $
-#
 # This library is free software; you can redistribute it and/or
 # modify it under the same terms as Perl itself.
 #
 
-package Debug;
+package DWeather::Debug;
 
 require Exporter;
+
 @ISA = qw(Exporter);
 @EXPORT = qw(dbginit dbg dbgadd dbgsub dbglist dbgdump isdbg dbgclose confess croak cluck carp);
-$VERSION = sprintf( "%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/ );
+$VERSION = 1.23;
 
 use strict;
 use vars qw(%dbglevel $fp);
+use 5.01001;
 
 use SMGLog ();
 use Carp qw(cluck);
+use Time::HiRes qw(gettimeofday);
 
 %dbglevel = ();
 $fp = undef;
@@ -56,8 +57,8 @@ dbginit();
 
 sub dbg
 {
-       my $t = time; 
-       my $ts = sprintf("%02d:%02d:%02d", (gmtime($t))[2,1,0]);
+       my ($t,$ut) = gettimeofday; 
+       my $ts = sprintf "%02d:%02d:%02d:%03d", (gmtime($t))[2,1,0], $ut/1000;
        for (@_) {
                my $r = $_;
                chomp $r;
@@ -78,7 +79,7 @@ sub dbginit
                $SIG{__DIE__} = sub { dbg($@, Carp::longmess(@_)); };
        }
 
-       $fp = SMGLog->new('debug', 'dat', 'd');
+       $fp = SMGLog->new('debug', 'log', 'd');
 }
 
 sub dbgclose