From e5e75ef5cdc189508a454e393dace9af0edd659e Mon Sep 17 00:00:00 2001 From: Manuel Pégourié-Gonnard Date: Tue, 14 Jul 2009 12:25:53 +0000 Subject: Some more files could use open qw(:utf8 :std). git-svn-id: svn://tug.org/texlive/trunk@14257 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLWinGoo.pm | 2 ++ Master/tlpkg/bin/tl-update-nsis | 2 ++ Master/tlpkg/bin/tlpfiles | 2 ++ 3 files changed, 6 insertions(+) (limited to 'Master/tlpkg') 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; -- cgit v1.2.3