(ask_standalone_gtk, ask_install): only return the on_services (those

functions used to return ($l, $on_services) which used in a scalar context
returned $on_services)

1 files changed, 2 insertions, 2 deletions

diff --git a/perl-install/services.pm b/perl-install/services.pm
index 38e7839b3..bec714e70 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -173,7 +173,7 @@ sub ask_install {
 			       },
 			       get_info => sub { formatLines(description($_[0], $prefix)) },
 			      }) or return ($l, $on_services); #- no change on cancel.
-    ($l, [ grep { $services{$_} } @$l ]);
+    [ grep { $services{$_} } @$l ];
 }
 
 sub ask_standalone_gtk {
@@ -247,7 +247,7 @@ sub ask_standalone_gtk {
     $::isEmbedded and Gtk->main_iteration while Gtk->events_pending;
     $::isEmbedded and kill (12, $::CCPID);
     $W->main or return;
-    ($l, $on_services);
+    $on_services;
 }
 
 sub ask {