instead of generating my own list of module descriptions from

list_modules.pm list of sound modules, just
usemodules::category2modules_and_description

1 files changed, 5 insertions, 7 deletions

diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index 9069966ef..85f5790d9 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -21,7 +21,6 @@ use common;
 use interactive;
 use run_program;
 use modules;
-use harddrake::sound_drivers;  # autogenerated
 use standalone;
 
 my %alsa2oss = 
@@ -118,9 +117,6 @@ my %oss2alsa =
 	"ymfpci"  => [ "snd-ymfpci" ]
 	);
 
-my $drivers_description = $harddrake::sound_drivers::sound_drivers;
-
-
 sub get_alternative {
     my ($driver) = @_;
     if ($alsa2oss{$driver}) {
@@ -164,9 +160,11 @@ sub switch {
 						 _("Here you can select an alternative driver (either OSS or ALSA) for your sound card (%s)",
 							  $device->{description}),
 						 [
-						  { label => _("Driver :"), val => \$new_driver, list => $alternative, default => $new_driver, sort =>1, format => sub {  "$_[0] ($drivers_description->{$_[0]})" }, allow_empty_list => 1 }
-						  ]
-						 ))
+						  { label => _("Driver :"), val => \$new_driver, list => $alternative, default => $new_driver, sort =>1, format => sub {
+							 my %des = modules::category2modules_and_description('multimedia/sound');
+							 "$_[0] (". $des{$_[0]};
+						  }, allow_empty_list => 1 }
+						  ]))
 	   {
 		  standalone::explanations("switching audio driver from '$driver' to '$new_driver'\n");
 		  do_switch($driver, $new_driver);