From 6129b1e7588e6f24f881ee9f0c0a39b42f426501 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 2 Aug 2002 09:39:31 +0000
Subject: - fixes for strict mode

- add userdrake

- kill dead code

- simplify compute_exec_string()
---
 control-center | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/control-center b/control-center
index 20add436..c59cb958 100755
--- a/control-center
+++ b/control-center
@@ -40,7 +40,7 @@ Gtk->set_locale;
 use Config;
 use POSIX;
 
-$in = 'interactive'->vnew('su', 'default');
+my $in = 'interactive'->vnew('su', 'default');
 #$in->do_pkgs->install('sane-frontends');
 
 
@@ -94,6 +94,7 @@ my $exec_hash =
    _("Mouse") => [ "mousedrake", "$_sbindir/mousedrake", 1 ],
    _("Printer") => [ "printerdrake", "$_sbindir/printerdrake", 1, "$_sbindir/printerdrake" ],
    _("Scanner") => [ "scannerdrake", "$_sbindir/scannerdrake", 1 ],
+   _("Users") => [ "userdrake", "$_bindir/userdrake", 1 ],
    _("Keyboard") => [ "keyboarddrake", "$_sbindir/keyboarddrake", 1 ],
    _("Hard Drives") => [ "diskdrake", "$_sbindir/diskdrake --hd", 1 ],
    _("NFS mount points") => [ "diskdrake", "$_sbindir/diskdrake --nfs", 1 ],
@@ -211,7 +212,6 @@ my @tree =
       [_("Logs"), 'logdrake-mdk'],
       [_("Console"), 'console-mdk'],
       [_("Users"), 'user-mdk'],
-#      [_("Users"), 'user-mdk'],
 #      [_("RFBDrake"), 'unknown-mdk'],
      ]
     ],
@@ -549,8 +549,7 @@ sub sig_usr2 {
 }
 
 sub compute_exec_string {
-    my ($arg) = @_;
-    my ($log_exp, $exec, $gtkplug, $alternate) = @$arg;
+    my ($log_exp, $exec, $gtkplug, $alternate) = @{$_[0]};
     if ($embedded) {
 	if ($gtkplug != -1) {
 	    $notebook_global->hide;
-- 
cgit v1.2.1