From 658edb6abf8a45ab405741306dbc3b0c70df784c Mon Sep 17 00:00:00 2001
From: "Kyle J. McKay" <mackyle@gmail.com>
Date: Sun, 14 Mar 2021 20:35:20 -0700
Subject: [PATCH] Markdown.pl: clean up closing tag whitespace

While closing tags are matched okay if they contain whitespace,
that whitespace was not being cleaned up in a comparable way to
the manner in which whitespace in an opening tag is being handled.

Make whitespace in closing tags be handled the same way as
whitespace in opening tags.

Signed-off-by: Kyle J. McKay <mackyle@gmail.com>
---
 Markdown.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Markdown.pl b/Markdown.pl
index c6ef02b..7635190 100755
--- a/Markdown.pl
+++ b/Markdown.pl
@@ -3678,6 +3678,7 @@ sub _Sanitize {
     if ($tag =~ m{^</}) {
 	my $autocloseflag = undef;
 	$autocloseflag = 1, $tag="</p>" if $tag eq "</\20>";
+	$tag =~ tr/\t\n\f\r //d; # remove whitespace
 	return (lc($tag),2,$autocloseflag);
     }
     if ($tag =~ /^<([^\s<\/>]+)\s+/gs) {