X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FAnnTalk.pm;h=a6032363ac5e7cf5d847a288e36ed4f64bcd952f;hb=e69b2b430d27710d1bb636f9aa7720da1d067359;hp=ddb59a4c4c70a61ad4e5c3c60ea07effb263497f;hpb=44803b76e72d76567f70a11e150a53a1cd87c2d3;p=spider.git

diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm
index ddb59a4c..a6032363 100644
--- a/perl/AnnTalk.pm
+++ b/perl/AnnTalk.pm
@@ -45,10 +45,13 @@ sub process
 
 sub listdups
 {
+	my $regex = shift;
+	$regex = '.*' unless $regex;
+	$regex =~ s/[\$\@\%]//g;
 	my @out;
-	for (sort { $dup{$a} <=> $dup{$b} } keys %dup) {
+	for (sort { $dup{$a} <=> $dup{$b} } grep { m{$regex}i } keys %dup) {
 		my $val = $dup{$_};
-		push @out, "$_ = $val (" . cldatetime($val) . ")";
+		push @out, "$_ = " . cldatetime($val);
 	}
 	return @out;
 }