diff options
author | Karl Berry <karl@freefriends.org> | 2014-05-05 23:00:01 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2014-05-05 23:00:01 +0000 |
commit | af2c4ad6d1402a91ed33461fb19c06503038ed8b (patch) | |
tree | 280e60c03ab7a3d6e4807689d39b3fe073fcf2a3 /Master/tlpkg/TeXLive | |
parent | 3372e050b51026c8498ec0c30020907bf2608dcc (diff) |
(install_packages): use select(), not Time::HiRes,
which is not installed with the system Perl in
CentOS 6, at least.
git-svn-id: svn://tug.org/texlive/trunk@33866 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index df3a31564d3..9fcc0295b62 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -201,7 +201,6 @@ use Cwd; use Digest::MD5; use Getopt::Long; use File::Temp; -use Time::HiRes; use TeXLive::TLConfig; @@ -1411,7 +1410,7 @@ sub install_packages { # The open might fail for no good reason on Windows. # Try again for a while, but not forever. if ($count++ == 100) { die "$0: open($tlpobj_file) failed: $!"; } - Time::HiRes::sleep(0.01); # sleep briefly + select (undef, undef, undef, .1); # sleep briefly } $tlpobj->writeout(\*TMP); close(TMP); |