1 files changed, 4 insertions, 9 deletions
diff --git a/perl-install/standalone/drakxservices b/perl-install/standalone/drakxservices
index a57b430bb..5d814354e 100755
--- a/perl-install/standalone/drakxservices
+++ b/perl-install/standalone/drakxservices
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+use strict;
 use lib qw(/usr/lib/libDrakX);
 
 use standalone;     #- warning, standalone must be loaded very first, for 'explanations'
@@ -9,15 +10,9 @@ use interactive;
 use services;
 use log;
 
-local $_ = join '', @ARGV;
-
-/-h/ and die "usage: drakxservices\n";
-
-
-my $in = 'interactive'->vnew('su', 'services');
+$ugtk3::wm_icon = "/usr/share/mcc/themes/default/service-mdk.png";
+my $in = 'interactive'->vnew('su');
 begin:
 my $l = services::ask($in);
 services::doit($in, $l) if $l;
-!$::isEmbedded and $in->exit(0);
-kill 'USR1', $::CCPID;
-goto begin;
+$in->exit(0);