From 334765d047bc6f15f8c15686afc07b0242c6919f Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 23 Aug 2000 22:00:02 +0000
Subject: [PATCH] tidy up listdups so regexes now work again

---
 perl/DXDupe.pm | 1 +
 perl/DXProt.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl/DXDupe.pm b/perl/DXDupe.pm
index 2ab0ca8c..cd4272c7 100644
--- a/perl/DXDupe.pm
+++ b/perl/DXDupe.pm
@@ -73,6 +73,7 @@ sub listdups
 	my $regex = shift;
 
 	$regex =~ s/[\^\$\@\%]//g;
+	$regex = ".*$regex" if $regex;
 	$regex = "^$let" . $regex;
 	my @out;
 	for (sort { $d{$a} <=> $d{$b} } grep { m{$regex}i } keys %d) {
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 6b11228b..4f02d519 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -422,7 +422,7 @@ sub normal
 			# announce duplicate checking
 			$field[3] =~ s/^\s+//;  # remove leading blanks
 			if (AnnTalk::dup($field[1], $field[2], $field[3])) {
-				dbg('chan', "Duplicate Announce ignored\n");
+				dbg('chan', "Duplicate Announce ignored");
 				return;
 			}
 			
-- 
2.43.0