display alternative drivers (oss, alsa) for sound cards

1 files changed, 5 insertions, 4 deletions

diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index 2f235d711..59c0b68ba 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -151,7 +151,7 @@ sub switch {
     my $alternative = get_alternative($driver);
     if ($alternative) {
 	   my $new_driver = $alternative->[0];
-	   if ($new_driver eq "unknown") {
+	   if ($new_driver eq 'unknown') {
 		  $in->ask_warn(_("No alternative driver"),
 							_("There's no known OSS/ALSA alternative driver for your sound card (%s)",
 							  $device->{description}));
@@ -165,6 +165,7 @@ sub switch {
 						  }, allow_empty_list => 1 }
 						  ]))
 	   {
+		  return if ($new_driver eq $driver);
 		  standalone::explanations("switching audio driver from '$driver' to '$new_driver'\n");
 		  do_switch($driver, $new_driver);
 	   }
@@ -176,9 +177,9 @@ sub switch {
 	   $in->ask_warn(_("Unkown driver"), 
 							 _("The \"%s\" driver for your sound card is unlisted\n
 Please send the output of the \"lspcidrake -v\" command to
-Thierry Vignaud <tvignaud at mandrakesoft dot com>
-with subject: unlisted sound driver")
-							   , $driver);
+<install at mandrakesoft dot com>
+with subject: unlisted sound driver \"%s\"")
+							   , $driver, $driver);
     }
 }