diff options
author | Karl Berry <karl@freefriends.org> | 2020-03-07 22:55:02 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2020-03-07 22:55:02 +0000 |
commit | 7a201df902af46299e1be728b291fda8ccc3cdd9 (patch) | |
tree | 4f7c336627212670db4f5ebd6bc2c3855b2f06f4 /Master/tlpkg/TeXLive/TeXCatalogue.pm | |
parent | 11c6e5fc65f26ba5219997d19707b998a9abf26d (diff) |
TLPSRC.pm (from_file),
TeXCatalogue.pm (beautify): collapse multiple whitespace.
(Still on the quest for identical longdesc results from our various
sources.)
git-svn-id: svn://tug.org/texlive/trunk@54167 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TeXCatalogue.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TeXCatalogue.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TeXCatalogue.pm b/Master/tlpkg/TeXLive/TeXCatalogue.pm index da0b3640d99..9f422ceaaed 100644 --- a/Master/tlpkg/TeXLive/TeXCatalogue.pm +++ b/Master/tlpkg/TeXLive/TeXCatalogue.pm @@ -140,7 +140,8 @@ sub beautify { $txt =~ s/\n/ /g; # make one line $txt =~ s/^\s+//g; # rm leading whitespace $txt =~ s/\s+$//g; # rm trailing whitespace - $txt =~ s/\s\s+/ /g; # multiple spaces to one + $txt =~ s/\s\s+/ /g; # collapse multiple whitespace characters to one + $txt =~ s/\t/ /g; # tabs to spaces # transliterate to ascii: it allows the final tlpdb to be pure ascii, # avoiding problems since we don't control the user's terminal encoding return Text::Unidecode::unidecode($txt); |