From: minima <minima>
Date: Wed, 23 Aug 2000 22:00:02 +0000 (+0000)
Subject: tidy up listdups so regexes now work again
X-Git-Tag: R_1_44~17
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=334765d047bc6f15f8c15686afc07b0242c6919f;p=spider.git

tidy up listdups so regexes now work again
---

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