diff options
| author | Colin Guthrie <colin@mageia.org> | 2012-04-24 20:10:31 +0000 |
|---|---|---|
| committer | Colin Guthrie <colin@mageia.org> | 2012-04-24 20:10:31 +0000 |
| commit | 0abec508d455c3456a3f016da126c26c2888c64b (patch) | |
| tree | e521c5da414f225f6a324df68ae0e5b3431f5f9d | |
| parent | 5e46be878b79d8f599ce615590b6d62339a9198e (diff) | |
| download | drakx-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.
| -rw-r--r-- | perl-install/services.pm | 4 |
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() { |