X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FGeomag.pm;h=1a56305c45a551043bac6d40953bc813d00f0e6d;hb=a13f69ce9f26ea2b95be1e6de1f14f50ab7065d8;hp=9b4421d821cb10c4b2db24277536d28eba6ec1db;hpb=5835ca385fb719194163512276666aaf75e82484;p=spider.git

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index 9b4421d8..1a56305c 100644
--- a/perl/Geomag.pm
+++ b/perl/Geomag.pm
@@ -17,6 +17,7 @@ use Julian;
 use IO::File;
 use DXDebug;
 use DXDupe;
+use Time::HiRes qw(gettimeofday tv_interval);
 
 use strict;
 
@@ -63,9 +64,10 @@ sub init
 	$fp = DXLog::new('wwv', 'dat', 'm');
 	do "$param" if -e "$param";
 	# read in existing data
+	my $t0 = [gettimeofday];
 	@cache = readfile($main::systime);
 	shift @cache while @cache > $maxcache;	
-	dbg(sprintf "WWV read in last %d records into cache", scalar @cache);	
+	dbg(sprintf "WWV read in last %d records into cache in %dmS", scalar @cache, _diffms($t0));	
 	confess $@ if $@;
 }