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 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 { |