summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/tracked-install.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2018-06-20 02:14:01 +0000
committerNorbert Preining <preining@logic.at>2018-06-20 02:14:01 +0000
commita9dd425d32a66579b536fad8f7d60d028a28df07 (patch)
treebcdad0c3d062d8ab72f558fbb5ff7c3321d6cfc9 /Master/tlpkg/installer/tracked-install.pl
parent62f89e102dd4c2db4a58e14c04fa4964ce3dea91 (diff)
update also tracked install for perltk to update log
git-svn-id: svn://tug.org/texlive/trunk@48057 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/tracked-install.pl')
-rw-r--r--Master/tlpkg/installer/tracked-install.pl10
1 files changed, 6 insertions, 4 deletions
diff --git a/Master/tlpkg/installer/tracked-install.pl b/Master/tlpkg/installer/tracked-install.pl
index cf0e042facd..f16e15280bb 100644
--- a/Master/tlpkg/installer/tracked-install.pl
+++ b/Master/tlpkg/installer/tracked-install.pl
@@ -52,19 +52,21 @@ sub installer_tracker {
if (@::WARNLINES) {
foreach my $t (@::WARNLINES) {
- update_status ($t);
+ tlwarn ("$t\n");
}
}
if ($::env_warns) {
- update_status($::env_warns);
+ tlwarn($::env_warns);
}
$::progressw->tagConfigure('centered', -justify => 'center');
# basic welcome message
foreach my $t (@::welcome_arr) {
- #my $s = shift @$t;
- $::progressw->insert("end", "$t\n", 'centered');
+ info("$t\n");
}
$::progressw->insert("end", "\n");
+
+ do_cleanup();
+
# additional info
if ($::LOGFILENAME) {
$::progressw->insert ("end", "Logfile: $::LOGFILENAME");