From ee359a8d6e15d79cda2a142fc40a4a9d26069615 Mon Sep 17 00:00:00 2001 From: Manuel Pégourié-Gonnard Date: Mon, 13 Jul 2009 20:56:33 +0000 Subject: Replace Encode with open ':utf8'. git-svn-id: svn://tug.org/texlive/trunk@14243 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TeXCatalogue.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/TeXLive/TeXCatalogue.pm') 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 { -- cgit v1.2.3