X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FGeomag.pm;fp=perl%2FGeomag.pm;h=1a56305c45a551043bac6d40953bc813d00f0e6d;hb=433209e1efed23493f25f1357d9c003696c1fb59;hp=f8a1ec720c0d820f9c82ee1e3eee9635098b57e2;hpb=766014807e2521cc60a219c6eda5b49d13ffc70f;p=spider.git

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index f8a1ec72..1a56305c 100644
--- a/perl/Geomag.pm
+++ b/perl/Geomag.pm
@@ -65,7 +65,6 @@ sub init
 	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 in %dmS", scalar @cache, _diffms($t0));