From 75641167fd5bddaf51cd9350c7f73e3dcd85e0e1 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 29 Jul 2002 20:05:28 +0000 Subject: (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) --- 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 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 { -- cgit v1.2.1