From 0abec508d455c3456a3f016da126c26c2888c64b Mon Sep 17 00:00:00 2001
From: Colin Guthrie <colin@mageia.org>
Date: Tue, 24 Apr 2012 20:10:31 +0000
Subject: services: Tweak xinetd service handling to be more reusable.

---
 perl-install/services.pm | 4 ++--
 1 file 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() {
-- 
cgit v1.2.1