diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-29 20:05:28 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-29 20:05:28 +0000 |
| commit | 75641167fd5bddaf51cd9350c7f73e3dcd85e0e1 (patch) | |
| tree | 7470140db088f35fe22bd3bf4174143fbca2913d /perl-install | |
| parent | 8bb98380ad7d9da56b8b0bafe26e32e73ab84973 (diff) | |
| download | drakx-75641167fd5bddaf51cd9350c7f73e3dcd85e0e1.tar drakx-75641167fd5bddaf51cd9350c7f73e3dcd85e0e1.tar.gz drakx-75641167fd5bddaf51cd9350c7f73e3dcd85e0e1.tar.bz2 drakx-75641167fd5bddaf51cd9350c7f73e3dcd85e0e1.tar.xz drakx-75641167fd5bddaf51cd9350c7f73e3dcd85e0e1.zip | |
(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)
Diffstat (limited to 'perl-install')
| -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 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 { |