From 6524bf3b9b5245e77c7bcf66e2f7bd7f47e23954 Mon Sep 17 00:00:00 2001 From: Manuel Pégourié-Gonnard Date: Mon, 13 Jul 2009 20:18:18 +0000 Subject: Assume utf8 for all I/O. git-svn-id: svn://tug.org/texlive/trunk@14242 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgr.pl | 2 ++ Master/tlpkg/TeXLive/TLMedia.pm | 2 ++ Master/tlpkg/TeXLive/TLPDB.pm | 2 ++ Master/tlpkg/TeXLive/TLPOBJ.pm | 2 ++ Master/tlpkg/TeXLive/TLPSRC.pm | 2 ++ Master/tlpkg/TeXLive/TLPaper.pm | 2 ++ Master/tlpkg/TeXLive/TLPostActions.pm | 2 ++ Master/tlpkg/TeXLive/TLTREE.pm | 2 ++ 8 files changed, 16 insertions(+) diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index 2ad10cbe1b8..9d70e817c5b 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -56,6 +56,8 @@ BEGIN { unshift (@INC, "$Master/texmf/scripts/texlive"); } +use open ':utf8'; + use Cwd qw/abs_path/; use Pod::Usage; use Getopt::Long qw(:config no_autoabbrev permute); diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm index bb8638a765d..f57454df618 100644 --- a/Master/tlpkg/TeXLive/TLMedia.pm +++ b/Master/tlpkg/TeXLive/TLMedia.pm @@ -13,6 +13,8 @@ use TeXLive::TLUtils qw(copy win32 dirname mkdirhier basename download_file use TeXLive::TLPDB; use TeXLive::TLWinGoo; +use open qw(:utf8 :std); + sub new { my ($class, @args) = @_; diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 5c65d57f726..ea6dd80f4ce 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -71,6 +71,8 @@ use TeXLive::TLPOBJ; use Cwd 'abs_path'; +use open qw(:utf8 :std); + my $_listdir; =pod diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 87a19e70377..2c46736c60d 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -12,6 +12,8 @@ use TeXLive::TLConfig qw($DefaultCategory $CategoriesRegexp use TeXLive::TLUtils; use TeXLive::TLTREE; +use open qw(:utf8 :std); + our $_tmp; my $_containerdir; diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm index 4a099bc9c41..8807e16ea6f 100644 --- a/Master/tlpkg/TeXLive/TLPSRC.pm +++ b/Master/tlpkg/TeXLive/TLPSRC.pm @@ -13,6 +13,8 @@ use TeXLive::TLUtils; use TeXLive::TLPOBJ; use TeXLive::TLTREE; +use open qw(:utf8 :std); + my $_tmp; my %autopatterns; # computed once internally diff --git a/Master/tlpkg/TeXLive/TLPaper.pm b/Master/tlpkg/TeXLive/TLPaper.pm index 66e39adeb07..478184cbb7e 100644 --- a/Master/tlpkg/TeXLive/TLPaper.pm +++ b/Master/tlpkg/TeXLive/TLPaper.pm @@ -31,6 +31,8 @@ C -- paper size setting use TeXLive::TLUtils qw(:DEFAULT dirname merge_into mkdirhier); +use open qw(:utf8 :std); + my %paper_sub = ( "xdvi" => \&paper_xdvi, "pdftex" => \&paper_pdftex, diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm index f1e1f2da76c..531daeefd21 100644 --- a/Master/tlpkg/TeXLive/TLPostActions.pm +++ b/Master/tlpkg/TeXLive/TLPostActions.pm @@ -21,6 +21,8 @@ use TeXLive::TLUtils qw(win32 mkdirhier copy conv_to_w32_path log debug info touch tlwarn); use TeXLive::TLWinGoo; +use open qw(:utf8 :std); + my $mainmenu = "TeX Live 2008"; our %PostInstall; diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm index d0897d20885..550a163ba3f 100644 --- a/Master/tlpkg/TeXLive/TLTREE.pm +++ b/Master/tlpkg/TeXLive/TLTREE.pm @@ -9,6 +9,8 @@ package TeXLive::TLTREE; use TeXLive::TLUtils; +use open qw(:utf8 :std); + sub new { my $class = shift; my %params = @_; -- cgit v1.2.3