From e2abceca35f10da35aa6711162768d389e554987 Mon Sep 17 00:00:00 2001 From: Manuel Pégourié-Gonnard Date: Wed, 15 Jul 2009 01:13:04 +0000 Subject: Undo rev 14242, 14243, 14256, 14257: apparently our Perl for windows doesn't support the open pragma. (OOPS: commited more than I wanted to. Also added files from the generic package 'shade'. This package was 'added' in r14213.) git-svn-id: svn://tug.org/texlive/trunk@14264 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 7322278da9f..b35bbeba8e1 100644 --- a/Master/tlpkg/TeXLive/TeXCatalogue.pm +++ b/Master/tlpkg/TeXLive/TeXCatalogue.pm @@ -10,8 +10,7 @@ use XML::Parser; use XML::XPath; use XML::XPath::XMLParser; - -use open qw(:utf8 :std); +use Encode; package TeXLive::TeXCatalogue::Entry; @@ -81,7 +80,8 @@ sub beautify{ $txt =~ s/\n/ /g; $txt =~ s/^[[:space:]]*//g; $txt =~ s/[[:space:]][[:space:]]*/ /g; - return $txt; + # turn of the utf8 flag by encoding it to utf8 + return(Encode::encode("utf-8", $txt)); } sub name { -- cgit v1.2.3