diff options
author | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2009-07-15 01:13:04 +0000 |
---|---|---|
committer | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2009-07-15 01:13:04 +0000 |
commit | e2abceca35f10da35aa6711162768d389e554987 (patch) | |
tree | 21b403172c10290850cba1c1fbb9ffe5b1707f37 /Master/tlpkg/TeXLive/TeXCatalogue.pm | |
parent | 181c66eec8ef64814280c5d11c6e4f92edc6c12d (diff) |
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
Diffstat (limited to 'Master/tlpkg/TeXLive/TeXCatalogue.pm')
-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 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 { |