summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2009-07-13 20:56:33 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2009-07-13 20:56:33 +0000
commitee359a8d6e15d79cda2a142fc40a4a9d26069615 (patch)
treef5707aadac044672f7ff41e1f200419c3a1455d5 /Master
parent6524bf3b9b5245e77c7bcf66e2f7bd7f47e23954 (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.pm6
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 {