diff options
Diffstat (limited to 'Master/tlpkg/bin/mk_download_pkg')
-rwxr-xr-x | Master/tlpkg/bin/mk_download_pkg | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Master/tlpkg/bin/mk_download_pkg b/Master/tlpkg/bin/mk_download_pkg index 75685e3e8e9..58b748f2237 100755 --- a/Master/tlpkg/bin/mk_download_pkg +++ b/Master/tlpkg/bin/mk_download_pkg @@ -27,7 +27,7 @@ BEGIN { unshift (@INC, "$::installerdir/tlpkg"); } -use TeXLive::TLUtils qw(mkdirhier copy get_system_tmpdir); +use TeXLive::TLUtils qw(mkdirhier copy get_system_tmpdir tllog); use TeXLive::TLPDB; use TeXLive::TLPOBJ; use Getopt::Long; @@ -97,12 +97,12 @@ mkdir "$tmpdir" or die "Can't mkdir \"$tmpdir\".\n"; mkdir "$inst_tmp" or die "Can't mkdir \"$inst_tmp\".\n"; unless ($opt_quiet) { - print "thisdir: \"$thisdir\"\n"; - print "installerdir: \"$installerdir\"\n"; - print "sys_tmp: \"$sys_tmp\"\n"; - print "tmpdir: \"$tmpdir\"\n"; - print "inst_tmp: \"$inst_tmp\"\n"; - print "outputdir: \"$outputdir\"\n"; + tllog ($::LOG_NORMAL, "thisdir: \"$thisdir\"\n"); + tllog ($::LOG_NORMAL, "installerdir: \"$installerdir\"\n"); + tllog ($::LOG_NORMAL, "sys_tmp: \"$sys_tmp\"\n"); + tllog ($::LOG_NORMAL, "tmpdir: \"$tmpdir\"\n"); + tllog ($::LOG_NORMAL, "inst_tmp: \"$inst_tmp\"\n"); + tllog ($::LOG_NORMAL, "outputdir: \"$outputdir\"\n"); } die "outputdir \"$outputdir\" dosn't exist.\n" unless (-d "$outputdir"); |