From a7d7ca1d8383bea004544d002748db81d867ea11 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 7 Mar 2003 23:03:33 +0000
Subject: [PATCH] more mods

---
 perl/create_localqsl.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl/create_localqsl.pl b/perl/create_localqsl.pl
index 713abe7f..66634f25 100755
--- a/perl/create_localqsl.pl
+++ b/perl/create_localqsl.pl
@@ -112,7 +112,8 @@ sub update
 	if (@in && $in[0]->[0] < $t) {
 		@in = grep {$_->[1] ne $by} @in;
 	}
-	unshift @in, [$t, $by, $comment] if grep is_callsign($1), split(/\s+/, $comment);
+	$comment =~ s/://g;
+	unshift @in, [$t, $by, $comment] if grep is_callsign($_), split(/\s+/, $comment);
 	pop @in, if @in > 10;
 	return join "\n", (map {(cldatetime($_->[0]) . " by $_->[1]: $_->[2]")} @in);
 }
-- 
2.34.1