update also tracked install for perltk to update log

git-svn-id: svn://tug.org/texlive/trunk@48057 c570f23f-e606-0410-a88d-b1316a301751

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");