diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-14 16:16:31 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-14 16:16:31 +0000 |
| commit | 313c1e64caa24d51c3bbd89ec3902eddfa07eddf (patch) | |
| tree | 38ff7d878359d3579f3936f888ec8a81769822bb /perl-install | |
| parent | b5425d1a7a566ee651201cdd74bed731636b836f (diff) | |
| download | drakx-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.pm | 6 |
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))); |