- security::msec :

  o config_check: use MDK::Common to set option rather
    than overwriting config file
  o remove all stupid prefix that just ofuscate code
    whereas it's always set to  '',
    $::prefix will be a lot better
  o s/shift @_/shift/
  o kill config_option()
  o simplify get_default()
  o get_secure_level() : replace if cascade by an array
  o set_secure_level() :
    * replace if cascade by an hash
    * default to runlevel 3 if undefined
  o get_functions() : simplify by merging code paths
- security::main :
  o security::libsafe is unneeded
  o don't pass useless prefix
  o begin to read default values

1 files changed, 1 insertions, 1 deletions

diff --git a/perl-install/security/main.pm b/perl-install/security/main.pm
index d7ae8e3f2..c316ba0a2 100644
--- a/perl-install/security/main.pm
+++ b/perl-install/security/main.pm
@@ -13,7 +13,7 @@ sub myexit { my_gtk::exit @_ }
 sub wait_msg {
     my $mainw = my_gtk->new('wait');
     my $label = new Gtk::Label($_[0]);
-    gtkadd($mainw->{window}, gtkpack(gtkadd(create_vbox(), $label)));
+    $mainw->{window}->add(gtkpack(gtkadd(create_vbox(), $label)));
     $label->signal_connect(expose_event => sub { $mainw->{displayed} = 1 });
     $mainw->sync until $mainw->{displayed};
     gtkset_mousecursor_wait($mainw->{rwindow}->window);