From fbd335923be01d06f013eda6557448dc38a246fd Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 2 Jan 2000 22:43:43 +0000
Subject: no_comment

---
 perl-install/modules.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 7bae980d5..84d2b630e 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -301,9 +301,10 @@ sub text2driver($) {
 }
 
 sub add_alias($$) { 
-    my ($alias, $name);
-    $conf{$_}{alias} && $conf{$_}{alias} eq $name and return foreach keys %conf;
+    my ($alias, $name) = @_;
+    /\Q$alias/ && $conf{$_}{alias} && $conf{$_}{alias} eq $name and return foreach keys %conf;
     $alias .= $scsi++ || '' if $alias eq 'scsi_hostadapter';
+    log::l("adding alias $alias to $name");
     $conf{$alias}{alias} ||= $name;
     1;
 }
-- 
cgit v1.2.1