tidy up listdups so regexes now work again

diff --git a/perl/DXDupe.pm b/perl/DXDupe.pm
index 2ab0ca8cee3c81c15e677dafa8d855511186bb10..cd4272c787530d24473dc821fcd7b724596762c9 100644 (file)
--- 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 6b11228b58ac2b5849df2e7611401e8959012065..4f02d5193275b866d9577f3e31bc716d5420e1e8 100644 (file)
--- 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;
                        }