From 33431ad9a921d8f2fd04d66a4a36175a1816ffb9 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 1 Apr 2003 13:16:25 +0000 Subject: move harddrake::sound $index param in hash and pass only the hash ref around functions --- perl-install/install_steps_interactive.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/install_steps_interactive.pm') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index aa2869585..e11105d25 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -946,7 +946,6 @@ sub summary { my $sound_index = 0; foreach my $device (@sound_cards) { - my $own_sound_index = $sound_index; push @l, { group => N("Hardware"), label => N("Sound card"), @@ -955,7 +954,8 @@ sub summary { }, clicked => sub { require harddrake::sound; - harddrake::sound::config($o, $device, $own_sound_index) + $device->{sound_slot_index} = $sound_index; + harddrake::sound::config($o, $device); }, }; $sound_index++; -- cgit v1.2.1