From 334765d047bc6f15f8c15686afc07b0242c6919f Mon Sep 17 00:00:00 2001 From: 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