diff options
| author | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2009-07-13 20:56:33 +0000 |
|---|---|---|
| committer | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2009-07-13 20:56:33 +0000 |
| commit | ee359a8d6e15d79cda2a142fc40a4a9d26069615 (patch) | |
| tree | f5707aadac044672f7ff41e1f200419c3a1455d5 /Master | |
| parent | 6524bf3b9b5245e77c7bcf66e2f7bd7f47e23954 (diff) | |
Replace Encode with open ':utf8'.
git-svn-id: svn://tug.org/texlive/trunk@14243 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -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 { |