summaryrefslogtreecommitdiffstats
path: root/perl-install/security
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-11 19:11:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-11 19:11:59 +0000
commitbfd84f6e2df1b083c8d95f6f8a84ede73d36dfea (patch)
tree42b0132d629d68fffde6b0e828126c18c0c3d1ed /perl-install/security
parent195f44c2da47b9f0df0461b593935d89619a5a0e (diff)
downloaddrakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar
drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.gz
drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.bz2
drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.xz
drakx-backup-do-not-use-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.pm10
-rw-r--r--perl-install/security/msec.pm3
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);