From: minima <minima>
Date: Fri, 25 Feb 2005 17:38:27 +0000 (+0000)
Subject: fix typo
X-Git-Tag: 1.53~157
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=6afb4b66b19876b1e653750c98afa4c46de9af72;p=spider.git

fix typo
---

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 82563bba..fee2c15b 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -340,11 +340,11 @@ sub dup
 	my $ldupkey = "X$freq|$call|$by" . uc $text;
 	my $t = DXDupe::find($ldupkey);
 	return 1 if $t && $t - $main::systime > 0;
+	DXDupe::add($ldupkey, $main::systime+$dupage);
 #	my $sdupkey = "X$freq|$call|$by";
 #	$t = DXDupe::find($sdupkey);
 #	return 1 if $t && $t - $main::systime > 0;	
-	DXDupe::add($ldupkey, $main::systime+$dupage);
-	DXDupe::add($sdupkey, $main::systime+$dupage);
+#	DXDupe::add($sdupkey, $main::systime+$dupage);
 	return 0;
 }