From 19b30b579e7e8f79becc58aba2e3d0a2516a375c Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 23 Aug 2000 21:50:18 +0000
Subject: [PATCH] remove space from dupe checking

---
 perl/AnnTalk.pm | 2 +-
 perl/Spot.pm    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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);
 }
-- 
2.34.1