clean up another anchor nesting edge case

diff --git a/site/cgi-bin/modules/DevHelp/Formatter.pm b/site/cgi-bin/modules/DevHelp/Formatter.pm
index 9ae9accd167d5117235c6593753fd25fa1124174..2ce8d40ba2f431c3789e78e32cb8f91f8379acc0 100644 (file)
--- a/site/cgi-bin/modules/DevHelp/Formatter.pm
+++ b/site/cgi-bin/modules/DevHelp/Formatter.pm
@@ -382,6 +382,7 @@ sub format {
       1 while $part =~ s!</figcaption></p>!</p></figcaption>!g;
       1 while $part =~ s!<p>(<a\s[^>]+>)</p>!$1!g;
       1 while $part =~ s!<p></a></p>!</a>!g;
+      1 while $part =~ s! ?(<a\s[^>]+>)</p>!</p>\n$1!g;
       $part =~ s!<p>(<hr[^>]*>)</p>!$1!g;
       $part =~ s!<p>(<(?:table|ol|ul|center|h[1-6])[^>]*>)!$1!g;
       $part =~ s!(</(?:table|ol|ul|center|h[1-6])>)</p>!$1!g;