X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAnnTalk.pm;h=faa644a302c99c3c204df7d2f834ca2a61ee74ef;hb=6603800bd10a5cbfed9be741c4a959778e5ed6a0;hp=b082c38531bd0f77707129db1ac37b2250e62a86;hpb=88665a2bed3b9ec9e97237938a95a045b2a21bb4;p=spider.git diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm index b082c385..faa644a3 100644 --- a/perl/AnnTalk.pm +++ b/perl/AnnTalk.pm @@ -30,7 +30,7 @@ sub dup $text = substr($text, 0, $duplth) if length $text > $duplth; my $dupkey = "$call|$to|$text"; 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; }