- kill unused myexit()

- perl_checker fixes

1 files 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)));