From bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 11 Nov 2002 19:11:59 +0000
Subject: add or remove spaces where need to please perl_checker

---
 perl-install/security/main.pm | 10 +++++-----
 perl-install/security/msec.pm |  3 ++-
 2 files changed, 7 insertions(+), 6 deletions(-)

(limited to 'perl-install/security')

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);
-- 
cgit v1.2.1