From 76fb51c2121186d897473a11f83d46c7ffa564dc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 18 Aug 2000 15:01:03 +0000
Subject: no_comment

---
 perl-install/devices.pm             | 2 +-
 perl-install/install_interactive.pm | 2 +-
 perl-install/modules.pm             | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 6b7e1edd4..0e4f1c671 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -84,7 +84,7 @@ sub entry {
 	     @{ ${{"fd"     => [ c::S_IFBLK(), 2,  0 ],
 		   "hidbp-mse-" => [ c::S_IFCHR(), 10, 32 ],
 		   "lp"     => [ c::S_IFCHR(), 6,  0 ],
-		   "usb/usblp" => [ c::S_IFCHR(), 180, 0 ],
+		   "usb/lp" => [ c::S_IFCHR(), 180, 0 ],
 		   "loop"   => [ c::S_IFBLK(), 7,  0 ],
 		   "md"     => [ c::S_IFBLK(), 9,  0 ],
 		   "nst"    => [ c::S_IFCHR(), 9, 128],
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm
index 6e60b8f6f..796402eb9 100644
--- a/perl-install/install_interactive.pm
+++ b/perl-install/install_interactive.pm
@@ -299,7 +299,7 @@ sub setup_thiskind {
 	}
 	return if $auto && (@l || !$at_least_one);
     }
-    @l = map { $_->{driver} } @l;
+    @l = map { $_->{description} } @l;
     while (1) {
 	my $msg = @l ?
 	  [ _("Found %s %s interfaces", join(", ", @l), $type),
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 5f6de00f8..6bc3ac812 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -350,7 +350,7 @@ sub add_alias($$) {
     $alias .= $scsi++ || '' if $alias eq 'scsi_hostadapter';
     log::l("adding alias $alias to $name");
     $conf{$alias}{alias} ||= $name;
-    if ($alias eq "sound" && $name =~ /^snd-card-/) {
+    if ($name =~ /^snd-card-/) {
 	$conf{$name}{"post-install"} = "modprobe snd-pcm-oss";
     }
     $alias;
-- 
cgit v1.2.1