diff options
| -rw-r--r-- | Master/tlpkg/TeXLive/TeXCatalogue.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TeXCatalogue.pm b/Master/tlpkg/TeXLive/TeXCatalogue.pm index b35bbeba8e1..7322278da9f 100644 --- a/Master/tlpkg/TeXLive/TeXCatalogue.pm +++ b/Master/tlpkg/TeXLive/TeXCatalogue.pm @@ -10,7 +10,8 @@ use XML::Parser; use XML::XPath; use XML::XPath::XMLParser; -use Encode; + +use open qw(:utf8 :std); package TeXLive::TeXCatalogue::Entry; @@ -80,8 +81,7 @@ sub beautify{ $txt =~ s/\n/ /g; $txt =~ s/^[[:space:]]*//g; $txt =~ s/[[:space:]][[:space:]]*/ /g; - # turn of the utf8 flag by encoding it to utf8 - return(Encode::encode("utf-8", $txt)); + return $txt; } sub name { |