From af0e6bdd59291e0fb872660f261ad720288068b5 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Tue, 22 Aug 2000 22:18:40 +0000
Subject: [PATCH] slight change to the checking for announces
---
perl/AnnTalk.pm | 2 +-
perl/DXProt.pm | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm
index a6032363..911c2724 100644
--- a/perl/AnnTalk.pm
+++ b/perl/AnnTalk.pm
@@ -28,7 +28,7 @@ sub dup
chomp $text;
unpad($text);
$text = substr($text, 0, $duplth) if length $text > $duplth;
- my $dupkey = "$call|$to|$text";
+ my $dupkey = "$to|$text";
return 1 if exists $dup{$dupkey};
$dup{$dupkey} = $d; # in seconds (to the nearest minute)
return 0;
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 2e22bc91..09708332 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -53,7 +53,7 @@ $baddxfn = "$main::data/baddx.pl";
(
[ qw(c c m p bc c) ], # pc10
[ qw(f m d t m c c h) ], # pc11
- [ qw(c bc m bp c p h) ], # pc12
+ [ qw(c bc m bp bm p h) ], # pc12
[ qw(c h) ], #
[ qw(c h) ], #
[ qw(c m h) ], #
--
2.43.0