From 3ec470afa5403052da63f93bb7348c87b931424a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 6 Mar 2003 14:53:44 +0000 Subject: fix #1929 --- perl-install/harddrake/sound.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm index edbed5e01..32bb5186e 100644 --- a/perl-install/harddrake/sound.pm +++ b/perl-install/harddrake/sound.pm @@ -279,8 +279,8 @@ The current driver for your \"%s\" sound card is \"%s\" ", $card, $driver)), { label => N("Driver:"), val => \$driver, list => [ category2modules("multimedia/sound") ], type => 'combo', default => $driver, sort =>1, separator => '|' }, ] )) { - do_switch($old_driver, $driver, $index); + goto end; } } @@ -288,7 +288,7 @@ sub get_any_driver_entry { my ($in, $driver, $device, $index) = @_; { val => N("Let me pick any driver"), disabled => sub {}, - clicked => sub { &choose_any_driver($in, $driver, $device->{description}, $index); goto end } + clicked => sub { &choose_any_driver($in, $driver, $device->{description}, $index); } } } -- cgit v1.2.1