diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 19:11:59 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 19:11:59 +0000 |
| commit | bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea (patch) | |
| tree | 42b0132d629d68fffde6b0e828126c18c0c3d1ed /perl-install/security | |
| parent | 195f44c2da47b9f0df0461b593935d89619a5a0e (diff) | |
| download | drakx-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar drakx-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.gz drakx-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.bz2 drakx-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.xz drakx-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.zip | |
add or remove spaces where need to please perl_checker
Diffstat (limited to 'perl-install/security')
| -rw-r--r-- | perl-install/security/main.pm | 10 | ||||
| -rw-r--r-- | perl-install/security/msec.pm | 3 |
2 files changed, 7 insertions, 6 deletions
diff --git a/perl-install/security/main.pm b/perl-install/security/main.pm index edfe34bce..40dae3daf 100644 --- a/perl-install/security/main.pm +++ b/perl-install/security/main.pm @@ -81,8 +81,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))); @@ -100,7 +100,7 @@ sub draksec_main { [ new Gtk::Label(N("Security Alerts:")), my $secadmin_check = new Gtk::CheckButton ], [ new Gtk::Label(N("Security Administrator:")), - my $secadmin_entry = new Gtk::Entry ] )), + my $secadmin_entry = new Gtk::Entry ])), new Gtk::Label(N("Basic"))); $secadmin_entry->set_text($msec->get_check_value("MAIL_USER")); @@ -210,10 +210,10 @@ sub draksec_main { remove_wait_msg($w); my_gtk->exit(0); - } ); + }); my $bcancel = gtksignal_connect(new Gtk::Button(N("Cancel")), - 'clicked' => sub { my_gtk->exit(0) } ); + 'clicked' => sub { my_gtk->exit(0) }); gtkpack_($vbox, 1, gtkshow($notebook), 0, gtkadd(gtkadd(gtkshow(new Gtk::HBox(0, 0)), diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm index 4392b0038..94af85fa3 100644 --- a/perl-install/security/msec.pm +++ b/perl-install/security/msec.pm @@ -142,7 +142,8 @@ sub get_secure_level { ${{ getVarsFromSh("$::prefix/etc/sysconfig/msec") }}{SECURE_LEVEL}; # || $ENV{SECURE_LEVEL}; - return $sec_levels[$num_level];} + return $sec_levels[$num_level]; +} sub get_seclevel_list { qw(Standard High Higher Paranoid); |