diff options
-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); |