From d262062a7a03f6791dad8f30ffa51220cd29814a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 14 Sep 2000 12:35:30 +0000
Subject: no_comment

---
 perl-install/any.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 0eec3a2ed..850a3be52 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -489,9 +489,10 @@ sub load_module {
     my ($in, $type) = @_;
     my @options;
 
+    (my $msg_type = $type) =~ s/\|.*//;
     my $m = $in->ask_from_listf('',
 #-PO: the %s is the driver type (scsi, network, sound,...)
-			       _("Which %s driver should I try?", $type),
+			       _("Which %s driver should I try?", $msg_type),
 			       \&modules::module2text,
 			       [ modules::module_of_type($type) ]) or return;
     my $l = modules::module2text($m);
-- 
cgit v1.2.1