(get_alternative,switch) prevent stupid & useless "driver for your

sound card is unlisted" thus there's no more need to:
- list OSS/ALSA alternatives if none
- sync draksound with list_modules

2 files changed, 6 insertions, 5 deletions

diff --git a/perl-install/NEWS b/perl-install/NEWS
index d1a5d69d3..97ed84954 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -2,6 +2,11 @@
   o better behaviour when resizing
   o use a TextView instead of Label so that text is selectable (see #33023)
   o better formatting
+- draksound:
+  o prevent stupid & useless "driver for your sound card is unlisted"
+  o no more need to:
+    * list OSS/ALSA alternatives if none
+    * sync with list_modules
 
 Version 10.4.192 - 12 September 2007, by Olivier "blino" Blin
 
diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index ac7ff6368..8ce19880a 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -193,7 +193,7 @@ sub load {
 sub get_alternative {
     my ($driver) = @_;
     my $list = $alsa2oss{$driver} || $oss2alsa{$driver};
-    $list ? @$list : undef;
+    $list ? @$list : "unknown";
 }
 
 sub do_switch {
@@ -299,10 +299,6 @@ The new \"%s\" driver will only be used on next bootstrap.", $device->{current_d
                       N("There's no known driver for your sound card (%s)",
                         $device->{description}),
                       [ get_any_driver_entry($in, $modules_conf, $driver, $device) ]);
-    } else {
-        $in->ask_warn(N("Unknown driver"), 
-                      N("Error: The \"%s\" driver for your sound card is unlisted",
-                      $driver));
     }
   end:
 }