From: minima <minima>
Date: Wed, 23 Aug 2000 21:50:18 +0000 (+0000)
Subject: remove space from dupe checking
X-Git-Tag: R_1_44~18
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=19b30b579e7e8f79becc58aba2e3d0a2516a375c;p=spider.git

remove space from dupe checking
---

diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm
index 84aa55ed..658c21b8 100644
--- a/perl/AnnTalk.pm
+++ b/perl/AnnTalk.pm
@@ -26,7 +26,7 @@ sub dup
 
 	chomp $text;
 	unpad($text);
-	$text =~ s/[^ a-zA-Z0-9]//g;
+	$text =~ s/[^a-zA-Z0-9]//g;
 	$text = substr($text, 0, $duplth) if length $text > $duplth; 
 	my $dupkey = "A$to|$text";
 	return DXDupe::check($dupkey, $main::systime + $dupage);
diff --git a/perl/Spot.pm b/perl/Spot.pm
index e06c6cee..30c0b627 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -215,7 +215,7 @@ sub dup
 	chomp $text;
 	$text = substr($text, 0, $duplth) if length $text > $duplth; 
 	unpad($text);
-	$text =~ s/[^ a-zA-Z0-9]//g;
+	$text =~ s/[^a-zA-Z0-9]//g;
 	my $dupkey = "X$freq|$call|$d|$text";
 	return DXDupe::check($dupkey, $main::systime+$dupage);
 }