Some more files could use open qw(:utf8 :std).

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

4 files changed, 8 insertions, 0 deletions

diff --git a/Master/install-tl b/Master/install-tl
index 84919d14957..dff7d7b833a 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -44,6 +44,8 @@ BEGIN {
   unshift (@INC, "$::installerdir/tlpkg");
 }
 
+use open qw(:utf8 :std);
+
 use Cwd 'abs_path';
 use Getopt::Long qw(:config no_autoabbrev);
 use Pod::Usage;
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm
index d1f773f87d6..d895a4580cc 100644
--- a/Master/tlpkg/TeXLive/TLWinGoo.pm
+++ b/Master/tlpkg/TeXLive/TLWinGoo.pm
@@ -132,6 +132,8 @@ BEGIN {
 use TeXLive::TLUtils;
 TeXLive::TLUtils->import( qw( mkdirhier ) );
 
+use open qw(:utf8 :std);
+
 my $is_win = $^O=~/^MSWin(32|64)$/i;
 
 =pod
diff --git a/Master/tlpkg/bin/tl-update-nsis b/Master/tlpkg/bin/tl-update-nsis
index 78ef875db99..6a928bf2a7a 100755
--- a/Master/tlpkg/bin/tl-update-nsis
+++ b/Master/tlpkg/bin/tl-update-nsis
@@ -16,6 +16,8 @@ our $mydir;
 
 use strict;
 
+use open qw(:utf8 :std);
+
 use TeXLive::TLConfig;
 use TeXLive::TLUtils;
 use TeXLive::TLPOBJ;
diff --git a/Master/tlpkg/bin/tlpfiles b/Master/tlpkg/bin/tlpfiles
index d5407b45aab..d2f54841d68 100755
--- a/Master/tlpkg/bin/tlpfiles
+++ b/Master/tlpkg/bin/tlpfiles
@@ -17,6 +17,8 @@ BEGIN {
 
 use strict;
 
+use open qw(:utf8 :std);
+
 use TeXLive::TLConfig qw/$RelocPrefix $RelocTree/;
 use TeXLive::TLPDB;
 use Pod::Usage;