diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-02-25 16:16:49 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-02-25 16:16:49 +0000 |
commit | 2c568d01810b110a676ccd25c5a675992c991815 (patch) | |
tree | 8be2ef1a65c928f5cf9ee2d8309d406368265be1 | |
parent | bd03f2381b97f88faebf1329fce4499835ebac1e (diff) | |
download | control-center-2c568d01810b110a676ccd25c5a675992c991815.tar control-center-2c568d01810b110a676ccd25c5a675992c991815.tar.gz control-center-2c568d01810b110a676ccd25c5a675992c991815.tar.bz2 control-center-2c568d01810b110a676ccd25c5a675992c991815.tar.xz control-center-2c568d01810b110a676ccd25c5a675992c991815.zip |
perl_checker cleanups
-rwxr-xr-x | control-center | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/control-center b/control-center index 4e2d96f0..f2771b29 100755 --- a/control-center +++ b/control-center @@ -44,7 +44,7 @@ my $themes_dir = "$mcc_dir/themes/"; my (%tool_pids, %tool_feedback); -my ($version, $conffile, $class_install) = ( `cat /etc/mandrakelinux-release`=~/\b(\d+\.{1}.+\))/, "/etc/mcc.conf", "/etc/sysconfig/system" ); +my ($version, $conffile, $class_install) = (`cat /etc/mandrakelinux-release` =~ /\b(\d+\.{1}.+\))/, "/etc/mcc.conf", "/etc/sysconfig/system"); my ($default_heigth, $default_width) = (523, 720); @@ -882,7 +882,7 @@ my @tree = long_description => $long_text, icon => "diskdrake_$type", }; - $full_name, + $full_name; } $scan->(); } do { my %cdroms_by_type; @@ -904,7 +904,7 @@ my @tree = [ 'zip', \&detect_devices::zips, N("ZIP drive"), N("Set where your ZIP drive is mounted"), ], - ), + ); }), "NFS mount points",, "Samba mount points", @@ -923,7 +923,7 @@ my @tree = [ N("Boot"), 'boot-mdk', [ - if_(0 && detect_devices::floppies, "Boot Disk"), + #if_(detect_devices::floppies, "Boot Disk"), # kernel is too big "Auto login Config", "Boot Config", "Boot Theme", @@ -1276,7 +1276,7 @@ sub really_refresh_tree { sub refresh_tree { my ($mode) = @_; if ($mode && $page_count) { - $notebook_global->window && $notebook_global->window->freeze_updates; + $notebook_global->window and $notebook_global->window->freeze_updates; $notebook_global->remove_page(-1) foreach 0..$page_count-1; $page_count = 0; } @@ -1462,7 +1462,7 @@ sub group_by { my $nb = shift @_; my @l; for (my $i = 0; $i < @_; $i += $nb) { - push @l, [ map { $_[$_] } $i..$i+$nb-1 ], # $_[$i], $_[$i+1], $_[$i+2] ]; + push @l, [ map { $_[$_] } $i..$i+$nb-1 ]; # $_[$i], $_[$i+1], $_[$i+2] ]; } @l; } |