summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/security/main.pm6
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)));