X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FGeomag.pm;fp=perl%2FGeomag.pm;h=a9df0e913214c19e07a1978a7121b7a25acb7f1e;hb=cc59bad0fce20a5cfdbbe379a68072a3abbb2368;hp=d169565aff0cada8fe0691d8abdc537d45d21518;hpb=cefda30169ac53e06d788528b38c962dcad7df48;p=spider.git diff --git a/perl/Geomag.pm b/perl/Geomag.pm index d169565a..a9df0e91 100644 --- a/perl/Geomag.pm +++ b/perl/Geomag.pm @@ -256,7 +256,7 @@ sub dup # $text = substr($text, 0, $duplth) if length $text > $duplth; my $dupkey = "$d|$sfi|$k|$a"; return 1 if exists $dup{$dupkey}; - $dup{$dupkey} = $d * 60; # in seconds (to the nearest minute) + $dup{$dupkey} = $d; # in seconds (to the nearest minute) return 0; }