fixed sh/node

[spider.git] / perl / WCY.pm

diff --git a/perl/WCY.pm b/perl/WCY.pm
index acc522bd5a76f0abbd873c9828cf72ed488f9e6c..3645e25cb4dbd933525f03c49a1b39dca2480b1c 100644 (file)
--- a/perl/WCY.pm
+++ b/perl/WCY.pm
@@ -227,12 +227,11 @@ sub dup
        # dump if too old
        return 2 if $d < $main::systime - $dupage;
  
-       $d /= 60;                            # to the nearest minute
 #      chomp $text;
 #      $text = substr($text, 0, $duplth) if length $text > $duplth; 
        my $dupkey = "$d|$sfi|$k|$a|$r";
        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; 
 }