From e93b296e91bd2f58fe1dcc6d81589beaf90d9800 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 17 Oct 2005 16:13:24 +0000 Subject: do display the driver description (#5403) --- perl-install/harddrake/sound.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm index 4bbe45e93..a72887a38 100644 --- a/perl-install/harddrake/sound.pm +++ b/perl-install/harddrake/sound.pm @@ -257,7 +257,10 @@ To use alsa, one can either use: { label => N("Driver:"), val => \$new_driver, list => \@alternative, default => $new_driver, sort =>1, help => join("\n\n", map { qq("$_": ) . $des{$_} } @alternative), - allow_empty_list => 1, format => sub { my ($drv) = @_; ($drv =~ /^snd[-_]/) ? "$drv [ALSA]" : "$drv [OSS]" } + allow_empty_list => 1, + format => sub { my ($drv) = @_; + sprintf(($des{$drv} ? "$des{$drv} (%s)" : "%s"), ($drv =~ /^snd[-_]/) ? "$drv [ALSA]" : "$drv [OSS]"); + } }, { val => N("Trouble shooting"), disabled => sub {}, -- cgit v1.2.1