From 00869d816fe6aa65231eab6a0685ac476cb1040c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 2 Dec 2005 18:34:02 +0000 Subject: (do_switch) make it more readable --- perl-install/harddrake/sound.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm index 03dce73aa..fb02b108e 100644 --- a/perl-install/harddrake/sound.pm +++ b/perl-install/harddrake/sound.pm @@ -200,8 +200,8 @@ sub do_switch { $modules_conf->set_sound_slot("sound-slot-$index", $new_driver); $modules_conf->write; if ($new_driver =~ /^snd-/) { # new driver is an alsa one - $in->do_pkgs->ensure_binary_is_installed(@$_, 1) foreach ([ qw(alsa-utils alsactl) ], - [ qw(aoss aoss) ]); + $in->do_pkgs->ensure_binary_is_installed(qw(alsa-utils alsactl), 1); + $in->do_pkgs->ensure_binary_is_installed(qw(aoss aoss), 1); rooted("service alsa start") if $::isStandalone && !$blacklisted; rooted("/sbin/chkconfig --add alsa") if $::isStandalone; load($modules_conf, $new_driver) if $::isStandalone; # service alsa is buggy -- cgit v1.2.1