summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-11 21:26:24 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-11 21:26:24 +0000
commitaec41af856ea95b29a81e7007b2af10f60e8a393 (patch)
treefeb4736b029e3b30e1eb95da7fe9ae72622476a1 /perl-install
parent1a07aeb86fe0dd86a87449dccef24f0bfdc6b93a (diff)
downloaddrakx-backup-do-not-use-aec41af856ea95b29a81e7007b2af10f60e8a393.tar
drakx-backup-do-not-use-aec41af856ea95b29a81e7007b2af10f60e8a393.tar.gz
drakx-backup-do-not-use-aec41af856ea95b29a81e7007b2af10f60e8a393.tar.bz2
drakx-backup-do-not-use-aec41af856ea95b29a81e7007b2af10f60e8a393.tar.xz
drakx-backup-do-not-use-aec41af856ea95b29a81e7007b2af10f60e8a393.zip
(summary): fix clicked empty handler
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 8732c7308..2de4eceef 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -741,13 +741,13 @@ sub summary {
{ label => _("Timezone"), val => \$o->{timezone}{timezone}, clicked => sub { $o->configureTimezone(1) } },
{ label => _("Printer"), val => \$o->{printer}{mode}, clicked => sub { $o->configurePrinter(1) }, format => sub { $_[0] || _("No printer") } },
(map {
-{ label => _("Sound card"), val => \ (my $i = $_->{description}), clicked => {} }
+{ label => _("Sound card"), val => \ (my $i = $_->{description}), clicked => sub {} }
} modules::get_that_type('sound')),
(map {
-{ label => _("TV card"), val => \ (my $i = $_->{description}), clicked => {} }
+{ label => _("TV card"), val => \ (my $i = $_->{description}), clicked => sub {} }
} grep { $_->{driver} eq 'bttv' } detect_devices::probeall()),
(map {
-{ label => _("ISDN card"), val => \ (my $i = $_->{description}), clicked => { $o->configureNetwork } }
+{ label => _("ISDN card"), val => \ (my $i = $_->{description}), clicked => sub { $o->configureNetwork } }
} grep { $_->{driver} eq 'hisax' } detect_devices::probeall()),
]);
}