summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorColin Guthrie <colin@mageia.org>2012-04-24 20:10:31 +0000
committerColin Guthrie <colin@mageia.org>2012-04-24 20:10:31 +0000
commit0abec508d455c3456a3f016da126c26c2888c64b (patch)
treee521c5da414f225f6a324df68ae0e5b3431f5f9d /perl-install
parent5e46be878b79d8f599ce615590b6d62339a9198e (diff)
downloaddrakx-0abec508d455c3456a3f016da126c26c2888c64b.tar
drakx-0abec508d455c3456a3f016da126c26c2888c64b.tar.gz
drakx-0abec508d455c3456a3f016da126c26c2888c64b.tar.bz2
drakx-0abec508d455c3456a3f016da126c26c2888c64b.tar.xz
drakx-0abec508d455c3456a3f016da126c26c2888c64b.zip
services: Tweak xinetd service handling to be more reusable.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/services.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm
index 29e275d47..7acb5cdbf 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -219,7 +219,7 @@ sub ask_ {
sub ask_standalone_gtk {
my ($_in) = @_;
my ($l, $on_services) = services();
- my @xinetd_services = xinetd_services();
+ my @xinetd_services = map { $_->[0] } xinetd_services();
require ugtk2;
ugtk2->import(qw(:wrappers :create));
@@ -350,7 +350,7 @@ sub xinetd_services() {
push @xinetd_services, [ $xinetd_name, $on_off eq 'on' ];
}
}
- map { $_->[0] } @xinetd_services;
+ @xinetd_services;
}
sub services_raw() {