From 9cc260406b44cf29430970fa96b787fd31c36a23 Mon Sep 17 00:00:00 2001
From: Guido Flohr <guido.flohr@cantanea.com>
Date: Wed, 13 Dec 2023 11:50:34 +0200
Subject: [PATCH] strip interpunction from anchor text

---
 lib/Qgoda/HTMLFilter/CleanUp.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lib/Qgoda/HTMLFilter/CleanUp.pm b/lib/Qgoda/HTMLFilter/CleanUp.pm
index 7fff821..c604e34 100644
--- a/lib/Qgoda/HTMLFilter/CleanUp.pm
+++ b/lib/Qgoda/HTMLFilter/CleanUp.pm
@@ -68,6 +68,17 @@ sub start {
 	return $chunk;
 }
 
+sub text {
+	my ($self, $chunk, %args) = @_;
+
+	my $interpunction = $self->{__interpunction};
+	if (length $interpunction) {
+		$chunk =~ s/[$interpunction]$//;
+	}
+
+	return $chunk;
+}
+
 sub end {
 	my ($self, $chunk, %args) = @_;