do not discard the interpunction

gflohr · Dec 13, 2023 · e634033 · e634033
1 parent 3dd23c4
commit e634033
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/lib/Qgoda/HTMLFilter/CleanUp.pm b/lib/Qgoda/HTMLFilter/CleanUp.pm
@@ -45,7 +45,8 @@ sub start {
 
 	if ('a' eq lc $args{tagname}
 	    && defined $args{attr}->{href}
-	    && $args{attr}->{href} =~ s/[!,.:;?]$//) {
+	    && $args{attr}->{href} =~ s/([!,.:;?])$//) {
+		$self->{__interpunction} = $1;
 		$chunk = '<' . $args{tagname};
 
 		my $attrseq = $args{attrseq};
@@ -67,4 +68,15 @@ sub start {
 	return $chunk;
 }
 
+sub end {
+	my ($self, $chunk, %args) = @_;
+
+	my $interpunction = delete $self->{__interpunction} // '';
+	if ('a' eq $args{tagname}) {
+		return $chunk . $interpunction;
+	} else {
+		return $interpunction . $chunk;
+	}
+}
+
 1;