diff options
Diffstat (limited to 'perl-install/modules.pm')
| -rw-r--r-- | perl-install/modules.pm | 5 |
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; } |