summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-01-02 22:43:43 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-01-02 22:43:43 +0000
commitfbd335923be01d06f013eda6557448dc38a246fd (patch)
tree3d96acdb9da66fe5e7182cd4e3956825e77c610e /perl-install/modules.pm
parentb707231329f40f0537da5a7a8a6033cf8bb8fbf5 (diff)
downloaddrakx-backup-do-not-use-fbd335923be01d06f013eda6557448dc38a246fd.tar
drakx-backup-do-not-use-fbd335923be01d06f013eda6557448dc38a246fd.tar.gz
drakx-backup-do-not-use-fbd335923be01d06f013eda6557448dc38a246fd.tar.bz2
drakx-backup-do-not-use-fbd335923be01d06f013eda6557448dc38a246fd.tar.xz
drakx-backup-do-not-use-fbd335923be01d06f013eda6557448dc38a246fd.zip
no_comment
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm5
1 files changed, 3 insertions, 2 deletions
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;
}