summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TeXCatalogue.pm
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2009-07-15 01:13:04 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2009-07-15 01:13:04 +0000
commite2abceca35f10da35aa6711162768d389e554987 (patch)
tree21b403172c10290850cba1c1fbb9ffe5b1707f37 /Master/tlpkg/TeXLive/TeXCatalogue.pm
parent181c66eec8ef64814280c5d11c6e4f92edc6c12d (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.pm6
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 {