summaryrefslogtreecommitdiffstats
path: root/perl-install/harddrake/sound.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/harddrake/sound.pm')
-rw-r--r--perl-install/harddrake/sound.pm10
1 files changed, 7 insertions, 3 deletions
diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index 31d11e75d..a0f8f62ad 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -139,11 +139,15 @@ sub get_alternative {
$alsa2oss{$driver} || $oss2alsa{$driver};
}
+sub explain {
+ standalone::explanations @_ unless $::isInstall;
+}
+
sub do_switch {
my ($old_driver, $new_driver) = @_;
require standalone;
- standalone::explanations("removing old $old_driver\n");
+ explain("removing old $old_driver\n");
rooted("service sound stop") unless $blacklisted;
rooted("service alsa stop") if $old_driver =~ /^snd-/ && !$blacklisted;
unload($old_driver); # run_program("/sbin/modprobe -r $driver"); # just in case ...
@@ -155,7 +159,7 @@ sub do_switch {
rooted("/sbin/chkconfig --add alsa");
load($new_driver); # service alsa is buggy
} else { run_program::run("/sbin/chkconfig --del alsa") }
- standalone::explanations("loading new $new_driver\n");
+ explain("loading new $new_driver\n");
rooted("/sbin/chkconfig --add sound"); # just in case ...
rooted("service sound start") unless $blacklisted;
}
@@ -209,7 +213,7 @@ To use alsa, one can either use:
]))
{
return if $new_driver eq $driver;
- standalone::explanations("switching audio driver from '$driver' to '$new_driver'\n");
+ explain("switching audio driver from '$driver' to '$new_driver'\n");
$in->ask_warn(N("Warning"), N("The old \"%s\" driver is blacklisted.\n
It has been reported to oopses the kernel on unloading.\n
The new \"%s\" driver'll only be used on next bootstrap.", $driver, $new_driver)) if $blacklisted;