From 43d3630fe479d9080c81d80e41b48dcf08bd785f Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 8 Aug 2008 14:48:36 +0000 Subject: install-menu-perltk.pl: fix perl -cw warnings about barewords git-svn-id: svn://tug.org/texlive/trunk@10178 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-menu-perltk.pl | 40 +++++++++++++-------------- 1 file 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()) { -- cgit v1.2.3