summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-19 20:56:19 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-19 20:56:19 +0000
commit15859d28d570cebe504dac6052ed6d28c6482344 (patch)
treef250270022dc5a5e257499bf3299dae5f2e4d6d4 /perl-install/modules.pm
parent9a043fba050690f8c171f5ad7f5088ba04945b9e (diff)
downloaddrakx-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.pm7
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} || []};
}