perl_checker fixes

1 files changed, 6 insertions, 6 deletions

diff --git a/control-center b/control-center
index 50705d84..3ce852ac 100755
--- a/control-center
+++ b/control-center
@@ -49,13 +49,13 @@ my ($_version, $conffile, $class_install) = ("9.0", "/etc/mcc.conf","/etc/syscon
 
 #we'll show log only once and don't restart it with new embedded process
 my $show_log = 1;
-my $still_in_splash_screen=1;
+my $still_in_splash_screen = 1;
 
 my %h = getVarsFromSh($conffile);
 my %class = getVarsFromSh($class_install);
 defined $h{THEME} or $h{THEME} = 'default';
 defined $h{EMBEDDED} or $h{EMBEDDED} = bool2text(1);
-defined $h{LOGS} or do { if ($class{CLASS} eq 'expert') {$h{LOGS} = bool2text(0)} else {$h{LOGS} = bool2text(1)}};
+defined $h{LOGS} or do { if ($class{CLASS} eq 'expert') { $h{LOGS} = bool2text(0)} else { $h{LOGS} = bool2text(1) } };
 my ($embedded, $logs) = (text2bool($h{EMBEDDED}), text2bool($h{LOGS}));
 my $theme = $h{THEME};
 if ("@ARGV" =~ /--theme (\w+)/) { $theme = $1 }
@@ -481,7 +481,7 @@ $summary_darea->signal_connect(expose_event => sub {
 	 foreach(
 		 [_("System:"), substr(<VERS>, 0, -1)],
 		 [_("Hostname:"), $nodename],
-		 [_("Kernel Version:"), "$release"],
+		 [_("Kernel Version:"), $release],
 		 [_("Machine:"), $machine]) {
 	     $pix_dbl->draw_string($summary_darea->style->font, $summary_darea->style->black_gc, 80, 150+$i, $_->[0]);
 	     $pix_dbl->draw_string($summary_darea->style->font, $summary_darea->style->black_gc, 81, 150+$i, $_->[0]);
@@ -598,7 +598,7 @@ sub compute_exec_string {
 	    my $pid;
 	    unless ($pid = fork) {
 		splash_warning(_("cannot fork: %s", $~)) unless defined $pid;
-		exec("$exec");
+		exec($exec);
 	    }
 	    push @pid_launched, $pid;
 	} elsif ($gtkplug == -1) { # explicitely not embedded
@@ -630,7 +630,7 @@ sub compute_exec_string {
 	unless ($pid = fork) {
 	    splash_warning(_("cannot fork: %s", $~)) unless defined $pid;
 	    print "explain : $log_exp \n ";
-	    exec("$exec_log");
+	    exec($exec_log);
 	} 
 	push @pid_exp, $pid;
     }
@@ -853,7 +853,7 @@ sub get_main_menu {
 sub set_page {
     my ($index) = @_;
     if ($index == 0) {
-	   $still_in_splash_screen=1;
+	   $still_in_splash_screen = 1;
 	   $exp_frame->hide; 
     } else { update_exp }
     $notebook_global->set_page($index);