diff options
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 3 | ||||
| -rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 5 |
2 files changed, 8 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 4edd1f0472b..11b7ae882a6 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1651,6 +1651,9 @@ sub tlwarn { $::opt_quiet = 0; logit (\*STDERR, -100, @_); $::opt_quiet = $savequiet; + for my $i (@::warn_hook) { + &{$i}($str); + } } diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 1cfd987f9ee..1f0f68a5e8e 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -108,6 +108,11 @@ push @::info_hook, update_status(join(" ",@_)); $mainwindow->update; }; +push @::warn_hook, + sub { + update_status(join(" ",@_)); + $mainwindow->update; + }; push @::install_packages_hook, \&update_progressbar; push @::install_packages_hook, sub { $mainwindow->update; $::sww->update; }; |