From d631ff21af34dfe4da843fb7153ddb1fbe7af7bc Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 1 Apr 2003 15:44:29 +0000 Subject: propagate $in where needed --- perl-install/harddrake/sound.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/harddrake') diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm index eabccd62b..88e337dd9 100644 --- a/perl-install/harddrake/sound.pm +++ b/perl-install/harddrake/sound.pm @@ -141,7 +141,7 @@ sub get_alternative { } sub do_switch { - my ($old_driver, $new_driver, $index) = @_; + my ($in, $old_driver, $new_driver, $index) = @_; my $wait = $in->wait_message(N("Please wait"), N("Please Wait... Applying the configuration")); log::explanations("removing old $old_driver\n"); rooted("service sound stop") unless $blacklisted; @@ -215,7 +215,7 @@ To use alsa, one can either use: $in->ask_warn(N("Warning"), N("The old \"%s\" driver is blacklisted.\n It has been reported to oops the kernel on unloading.\n The new \"%s\" driver'll only be used on next bootstrap.", $driver, $new_driver)) if $blacklisted; - do_switch($driver, $new_driver, $device->{sound_slot_index}); + do_switch($in, $driver, $new_driver, $device->{sound_slot_index}); } } elsif ($driver =~ /^Bad:/) { $driver =~ s/^Bad://; @@ -280,7 +280,7 @@ The current driver for your \"%s\" sound card is \"%s\" ", $device->{description { label => N("Driver:"), val => \$driver, list => [ category2modules("multimedia/sound") ], type => 'combo', default => $driver, sort =>1, separator => '|' }, ] )) { - do_switch($old_driver, $driver, $device->{sound_slot_index}); + do_switch($in, $old_driver, $driver, $device->{sound_slot_index}); goto end; } } -- cgit v1.2.1