summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-14 16:16:31 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-14 16:16:31 +0000
commit313c1e64caa24d51c3bbd89ec3902eddfa07eddf (patch)
tree38ff7d878359d3579f3936f888ec8a81769822bb /perl-install
parentb5425d1a7a566ee651201cdd74bed731636b836f (diff)
downloaddrakx-backup-do-not-use-313c1e64caa24d51c3bbd89ec3902eddfa07eddf.tar
drakx-backup-do-not-use-313c1e64caa24d51c3bbd89ec3902eddfa07eddf.tar.gz
drakx-backup-do-not-use-313c1e64caa24d51c3bbd89ec3902eddfa07eddf.tar.bz2
drakx-backup-do-not-use-313c1e64caa24d51c3bbd89ec3902eddfa07eddf.tar.xz
drakx-backup-do-not-use-313c1e64caa24d51c3bbd89ec3902eddfa07eddf.zip
- kill unused myexit()
- perl_checker fixes
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)));