install-menu-perltk.pl: fix perl -cw warnings about barewords

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

1 files changed, 20 insertions, 20 deletions

diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index 87540e76b03..9e249ce59f8 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -91,30 +91,30 @@ my $optsrcstate;
 my $optdocstate;
 
 push @::start_install_hook, sub { update_statusbar("Starting installation");
-  Tk::DoOneEvent(Tk::Event::DONT_WAIT); Tk::DoOneEvent(Tk::Event::DONT_WAIT);};
+  Tk::DoOneEvent(Tk::Event::DONT_WAIT()); Tk::DoOneEvent(Tk::Event::DONT_WAIT());};
 push @::start_postinst_hook, sub { update_statusbar("Starting post-installation Jobs");
-  Tk::DoOneEvent(Tk::Event::DONT_WAIT); Tk::DoOneEvent(Tk::Event::DONT_WAIT);};
+  Tk::DoOneEvent(Tk::Event::DONT_WAIT()); Tk::DoOneEvent(Tk::Event::DONT_WAIT());};
 push @::end_install_hook, sub { update_statusbar("Installation finished");
-  Tk::DoOneEvent(Tk::Event::DONT_WAIT); Tk::DoOneEvent(Tk::Event::DONT_WAIT);};
+  Tk::DoOneEvent(Tk::Event::DONT_WAIT()); Tk::DoOneEvent(Tk::Event::DONT_WAIT());};
 
 push @::install_packages_hook, \&update_statusbar;
 # no idea how many of those are necessary, 1 is definitely not enough!
-push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); };
-push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); };
-push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); };
-push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); };
-push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); };
-push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); };
-push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); };
-push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); };
-push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); };
-push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); };
-push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); };
-push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); };
-push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); };
-push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); };
-push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); };
-push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); };
+push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); };
+push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); };
+push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); };
+push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); };
+push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); };
+push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); };
+push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); };
+push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); };
+push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); };
+push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); };
+push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); };
+push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); };
+push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); };
+push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); };
+push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); };
+push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT()); };
 
 sub update_statusbar {
   my $p = shift;
@@ -216,7 +216,7 @@ my $srcyesno = ( $vars{'option_src'} ? $text{'yes'} : $text{'no'} );
 my $docyesno = ( $vars{'option_doc'} ? $text{'yes'} : $text{'no'} );
 
 sub run_menu {
-  calc_depends;
+  calc_depends();
   $mainwindow = Tk::MainWindow->new;
 
   if (!win32()) {