diff options
author | Norbert Preining <preining@logic.at> | 2008-03-21 06:15:06 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-03-21 06:15:06 +0000 |
commit | 2647df2c7bf1d082cdcc0628cc8e5c11024f9eb1 (patch) | |
tree | 67d95c5f4328a316e054bcd2f2d0d271a8a2bc3e | |
parent | dfb30fee48191f4c06c4d31788f3255fae25b19c (diff) |
call wget with --tries=2 --timeout=60
git-svn-id: svn://tug.org/texlive/trunk@7051 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index ba33b19e721..e30c8d3d95b 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -128,7 +128,7 @@ sub from_file { } if ($path =~ /^(http|ftp):\/\//) { tllog($::LOG_DDDEBUG, "TLPDB.pm: trying to initialize from $path\n"); - open(TMP, "wget -q --output-document=- $path|") + open(TMP, "wget --timeout=60 --tries=2 -q --output-document=- $path|") || die("Cannot open tlpdb file: $path"); } else { open(TMP,"<$path") || die("Cannot open tlpdb file: $path"); diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index ed77cdf47b8..ebc1b01c125 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -672,7 +672,7 @@ sub install_package { $tarfile =~ s/\.lzma$//; mkdirhier("$target/temp"); tllog($::LOG_DEBUG, "Downloading $what to $target\\temp\\$fn\n"); - tllog($::LOG_DEBUG, `$wget --tries=5 -q -O \"$target\\temp\\$fn\" \"$what\" 2>\&1`); + tllog($::LOG_DEBUG, `$wget --tries=2 --timeout=60 -q -O \"$target\\temp\\$fn\" \"$what\" 2>\&1`); tllog($::LOG_DEBUG, "Un-lzmaing $target\\temp\\$fn to $target\\temp\\$tarfile\n"); #tllog($::LOG_DEBUG, `type \"$target\\temp\\$fn\" | $lzmadec > \"$target\\temp\\$tarfile\" 2>&1`); tllog($::LOG_DEBUG, `$lzmadec < \"$target\\temp\\$fn\" > \"$target\\temp\\$tarfile\" 2>&1`); @@ -681,7 +681,7 @@ sub install_package { unlink("$target/temp/$tarfile", "$target/temp/$fn"); } else { tllog($::LOG_DEBUG, "downloading/unlzma-ing/unpacking $what\n"); - tllog($::LOG_NORMAL, `$wget --tries=5 -q -O- \"$what\"|\"$lzmadec\"|$tar -xf - -C \"$target\"`); + tllog($::LOG_NORMAL, `$wget --tries=2 --timeout=60 -q -O- \"$what\"|\"$lzmadec\"|$tar -xf - -C \"$target\"`); } } elsif ($what =~ m,\.tar.lzma$,) { if (win32()) { |