From: Norman Walsh <ndw@nwalsh.com>
Date: Thu, 14 Mar 2002 14:58:07 +0000 (+0000)
Subject: Remove whitespace before anchor ends too
X-Git-Tag: release/1.79.1~6^2~5857
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=6b6060e24fa93667f194751e0d88ca6e6578e130;p=docbook-dsssl

Remove whitespace before anchor ends too
---

diff --git a/cvstools/untidy b/cvstools/untidy
index 9a132f286..196d58a30 100755
--- a/cvstools/untidy
+++ b/cvstools/untidy
@@ -20,6 +20,7 @@ if ($content eq '') {
 }
 
 $content =~ s/(<a\s[^>]+>)\s+/$1/sg;
+$content =~ s/\s+(<\/a>)/$1/sg;
 
 open (F, ">$filename");
 print F $content;