From 5f0697287e686e487b560f094fb6cd684cf7d54d Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 12 Apr 2017 17:31:37 +0000 Subject: sync,doc git-svn-id: svn://tug.org/texlive/trunk@43761 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/tests/TeXLive/TLUtils.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Build/source/texk/tests') diff --git a/Build/source/texk/tests/TeXLive/TLUtils.pm b/Build/source/texk/tests/TeXLive/TLUtils.pm index bb41e0a47d1..8876057f73a 100644 --- a/Build/source/texk/tests/TeXLive/TLUtils.pm +++ b/Build/source/texk/tests/TeXLive/TLUtils.pm @@ -5,7 +5,7 @@ package TeXLive::TLUtils; -my $svnrev = '$Revision: 41618 $'; +my $svnrev = '$Revision: 42254 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -2422,12 +2422,12 @@ sub download_file { debug("persistent connection set up, trying to get $url (for $dest)\n"); $ret = $::tldownload_server->get_file($url, $dest); if ($ret) { - debug("downloading file via persistent connection succeeded\n"); + ddebug("downloading file via persistent connection succeeded\n"); return $ret; } else { - tlwarn("TLUtils::download_file: persistent connection ok," + debug("TLUtils::download_file: persistent connection ok," . " but download failed: $url\n"); - tlwarn("TLUtils::download_file: retrying with wget.\n"); + debug("TLUtils::download_file: retrying with wget.\n"); $wget_retry = 1; # just so we can give another msg. } } else { @@ -2443,7 +2443,7 @@ sub download_file { my $ret = _download_file($url, $dest, $wget); if ($wget_retry) { - tlwarn("TLUtils::download_file: retry with wget " + debug("TLUtils::download_file: retry with wget " . ($ret ? "succeeded" : "failed") . ": $url\n"); } -- cgit v1.2.3