From 313c1e64caa24d51c3bbd89ec3902eddfa07eddf Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 14 Nov 2002 16:16:31 +0000 Subject: - kill unused myexit() - perl_checker fixes --- perl-install/security/main.pm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/perl-install/security/main.pm b/perl-install/security/main.pm index 03c49bda3..362bb1450 100644 --- a/perl-install/security/main.pm +++ b/perl-install/security/main.pm @@ -8,8 +8,6 @@ use my_gtk qw(:helpers :wrappers :ask); use security::msec; -sub myexit { my_gtk->exit(@_) } - # factorize this with rpmdrake and harddrake2 sub wait_msg { my $mainw = my_gtk->new('wait'); @@ -81,8 +79,8 @@ sub draksec_main { } # Connect the signals - $window->signal_connect('delete_event', sub { $window->destroy(); }); - $window->signal_connect('destroy', sub { my_gtk->exit(); }); + $window->signal_connect('delete_event', sub { $window->destroy() }); + $window->signal_connect('destroy', sub { my_gtk->exit() }); $window->add(my $vbox = gtkshow(new Gtk::VBox(0, 0))); -- cgit v1.2.1