Assume utf8 for all I/O.

git-svn-id: svn://tug.org/texlive/trunk@14242 c570f23f-e606-0410-a88d-b1316a301751

8 files changed, 16 insertions, 0 deletions

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<TeXLive::TLPaper> -- 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 = @_;