summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/mk_download_pkg
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/mk_download_pkg')
-rwxr-xr-xMaster/tlpkg/bin/mk_download_pkg14
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");