1 files changed, 7 insertions, 9 deletions
diff --git a/perl-install/standalone/drakxservices b/perl-install/standalone/drakxservices
index 63318a031..5d814354e 100755
--- a/perl-install/standalone/drakxservices
+++ b/perl-install/standalone/drakxservices
@@ -1,20 +1,18 @@
 #!/usr/bin/perl
 
+use strict;
 use lib qw(/usr/lib/libDrakX);
 
-use common qw(:common :functional :file);
+use standalone;     #- warning, standalone must be loaded very first, for 'explanations'
+
+use common;
 use interactive;
 use services;
 use log;
 
-local $_ = join '', @ARGV;
-
-/-h/ and die "usage: drakxservices\n";
-
-$::isStandalone = 1;
-
-my $in = vnew interactive('su');
+$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;
-
 $in->exit(0);