fix allow 2/more commands on a line

[spider.git] / perl / Geomag.pm

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index 9b4421d821cb10c4b2db24277536d28eba6ec1db..f8a1ec720c0d820f9c82ee1e3eee9635098b57e2 100644 (file)
--- 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,11 @@ sub init
        $fp = DXLog::new('wwv', 'dat', 'm');
        do "$param" if -e "$param";
        # read in existing data
+       my $t0 = [gettimeofday];
+       dbg(sprintf "WWV read in upto %d records into cache", $maxcache);       
        @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 $@;
 }