misc perl_checker cleanups

1 files changed, 40 insertions, 40 deletions

diff --git a/control-center b/control-center
index fd7dcfd6..3acccbe9 100755
--- a/control-center
+++ b/control-center
@@ -163,31 +163,31 @@ my $exec_hash =
 my @tree =
     ([ N("Boot"), 'boot-mdk',
        [
-        if_(0 && detect_devices::floppies, [ "Boot Disk", 'drakfloppy-mdk',  ]),
-        [ "Auto login Config", 'autologin-mdk',  ],
-        [ "Boot Config", 'drakboot-mdk',  ],
-        [ "Boot Theme", 'boot-theme-mdk',  ],
-        if_(0, [ "Auto Install", 'drakautoinst-mdk',  ]),
+        if_(0 && detect_devices::floppies, [ "Boot Disk", 'drakfloppy-mdk', ]),
+        [ "Auto login Config", 'autologin-mdk', ],
+        [ "Boot Config", 'drakboot-mdk', ],
+        [ "Boot Theme", 'boot-theme-mdk', ],
+        if_(0, [ "Auto Install", 'drakautoinst-mdk', ]),
         ]
        ],
      [ N("Hardware"), 'drakhard-mdk',
        [
-        [ "Hardware List", 'harddrake-mdk',  ],
-        [ "Monitor", 'configure-monitor-mdk',  ],
-        [ "Resolution", 'resolution-mdk',  ],
-        [ "Graphical server configuration", 'XFdrake-mdk',  ],
+        [ "Hardware List", 'harddrake-mdk', ],
+        [ "Monitor", 'configure-monitor-mdk', ],
+        [ "Resolution", 'resolution-mdk', ],
+        [ "Graphical server configuration", 'XFdrake-mdk', ],
         if_(0, [ "Fax", 'drakfax-mdk', ]),
-        [ "TV Cards", 'tv-mdk',  ],
-        [ "Keyboard", 'keyboard-mdk',  ],
-        [ "Mouse", 'mousedrake-mdk',  ],
-        [ "Printer", 'printer-mcc-mdk',  ],
-        [ "Scanner", 'scanner-mdk',  ],
+        [ "TV Cards", 'tv-mdk', ],
+        [ "Keyboard", 'keyboard-mdk', ],
+        [ "Mouse", 'mousedrake-mdk', ],
+        [ "Printer", 'printer-mcc-mdk', ],
+        [ "Scanner", 'scanner-mdk', ],
         if_(0, [ "UPS", 'drakups-mdk', ]),
         ]
        ],
      [ N("Mount Points"), 'partition-mdk',
        [
-        [ "Hard Drives", 'diskdrake_hd',  ],
+        [ "Hard Drives", 'diskdrake_hd', ],
         (map {
             my ($type, $name, $scan, $text) = @$_;
             map_index {
@@ -207,42 +207,42 @@ my @tree =
                [ 'zip', N("Zip"), \&detect_devices::zips, N("ZIP drive") ],
                ),
         }),
-        [ "NFS mount points", 'diskdrake_nfs',  ],
-        [ "Samba mount points", 'diskdrake_samba',  ],
-        [ "WebDAV mount points", 'webdav-mdk',  ],
-        [ "Partition Sharing", 'diskdrake_fileshare',  ],
+        [ "NFS mount points", 'diskdrake_nfs', ],
+        [ "Samba mount points", 'diskdrake_samba', ],
+        [ "WebDAV mount points", 'webdav-mdk', ],
+        [ "Partition Sharing", 'diskdrake_fileshare', ],
         ]
        ],
      [ N("Network & Internet"), 'net-mdk',
        [
-        [ "Add Connection", 'new-connection-mdk',  ],
-        [ "Configure Internet", 'internet-access-mdk',  ],
-        [ "Manage Connection", 'manage-connections-mdk',  ],
-        [ "Monitor Connection", 'net_monitor-mdk',  ],
-        [ "Remove Interface", 'remove-connection-mdk',  ],
-        [ "Proxy Configuration", 'drakproxy-mdk',  ],
-        [ "Connection Sharing", 'drakgw-mdk',  ],
+        [ "Add Connection", 'new-connection-mdk', ],
+        [ "Configure Internet", 'internet-access-mdk', ],
+        [ "Manage Connection", 'manage-connections-mdk', ],
+        [ "Monitor Connection", 'net_monitor-mdk', ],
+        [ "Remove Interface", 'remove-connection-mdk', ],
+        [ "Proxy Configuration", 'drakproxy-mdk', ],
+        [ "Connection Sharing", 'drakgw-mdk', ],
         ],
        ],
      [ N("Security"), 'security-mdk',
        [
-        [ "Security Level", 'draksec-mdk',  ],
-        [ "Security Permissions", 'drakperm-mdk',  ],
-        [ "Firewall", 'firewall-mdk',  ],
+        [ "Security Level", 'draksec-mdk', ],
+        [ "Security Permissions", 'drakperm-mdk', ],
+        [ "Firewall", 'firewall-mdk', ],
         ]
        ],
      [ N("System"), 'system-mdk',
        [
-        [ "Menus" , 'menudrake-mdk',  ],
-        [ "Display Manager chooser", 'drakedm-mdk',  ],
-        [ "Services" , 'service-mdk',  ],
-        [ "Fonts", 'drakfont-mdk',  ],
-        [ "Date & Time" , 'time-mdk',  ],
-        [ "Logs", 'logdrake-mdk',  ],
-        if_($ENV{LANGUAGE} !~ /^zh/, [ "Console", 'console-mdk',  ]),
-        [ "Users", 'user-mdk',  ],
-#        [ "Programs scheduling", 'drakcronat-mdk',  ],
-        [ "Backups", 'backup-mdk',  ],
+        [ "Menus" , 'menudrake-mdk', ],
+        [ "Display Manager chooser", 'drakedm-mdk', ],
+        [ "Services" , 'service-mdk', ],
+        [ "Fonts", 'drakfont-mdk', ],
+        [ "Date & Time" , 'time-mdk', ],
+        [ "Logs", 'logdrake-mdk', ],
+        if_($ENV{LANGUAGE} !~ /^zh/, [ "Console", 'console-mdk', ]),
+        [ "Users", 'user-mdk', ],
+#        [ "Programs scheduling", 'drakcronat-mdk', ],
+        [ "Backups", 'backup-mdk', ],
 #      [ "RFBDrake", 'unknown-mdk' ],
         ]
        ],
@@ -320,7 +320,7 @@ my @themes = grep { -d "$themes_dir/$_" } all($themes_dir);
 
 #-PO Translators, please keep all "/" charaters !!!
 my %options = (
-    'show_log' => [ N("/_Options"), N("/Display _Logs")  ],
+    'show_log' => [ N("/_Options"), N("/Display _Logs") ],
     'embedded_mode' => [ N("/_Options"), N("/_Embedded Mode") ],
     'wiz_expert' => [ N("/_Options"), N("/Expert mode in _wizards") ],
 );