diff options
| -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() { |