use strict;
use vars qw(%dbglevel $fp);
+use 5.01001;
use SMGLog ();
use Carp qw(cluck);
+use Time::HiRes qw(gettimeofday);
%dbglevel = ();
$fp = undef;
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;