diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-19 20:56:19 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-19 20:56:19 +0000 |
commit | 15859d28d570cebe504dac6052ed6d28c6482344 (patch) | |
tree | f250270022dc5a5e257499bf3299dae5f2e4d6d4 /perl-install/modules.pm | |
parent | 9a043fba050690f8c171f5ad7f5088ba04945b9e (diff) | |
download | drakx-backup-do-not-use-15859d28d570cebe504dac6052ed6d28c6482344.tar drakx-backup-do-not-use-15859d28d570cebe504dac6052ed6d28c6482344.tar.gz drakx-backup-do-not-use-15859d28d570cebe504dac6052ed6d28c6482344.tar.bz2 drakx-backup-do-not-use-15859d28d570cebe504dac6052ed6d28c6482344.tar.xz drakx-backup-do-not-use-15859d28d570cebe504dac6052ed6d28c6482344.zip |
no_comment
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r-- | perl-install/modules.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm index e8d4563b0..3abbf53d5 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -528,6 +528,13 @@ sub load_thiskind($;&$) { &$f($text, $mod) if $f; load($mod, $type); } + + if ($type eq 'scsi') { + foreach ("imm", "ppa") { + eval { load($_, $type); push @devs, "imm" }; + last if !$@; + } + } @devs, map { [ $_, $_ ] } @{$loaded{$type} || []}; } |