summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-14 19:04:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-14 19:04:57 +0000
commitebcfcd6a76e00806286771f50de84bc9a1818a27 (patch)
treef0a0eba50bc5b5a868e1e992a5426f36dfa5093a /perl-install
parent4657145f8863220ac8250c0aa7019c5ba79e518f (diff)
downloaddrakx-ebcfcd6a76e00806286771f50de84bc9a1818a27.tar
drakx-ebcfcd6a76e00806286771f50de84bc9a1818a27.tar.gz
drakx-ebcfcd6a76e00806286771f50de84bc9a1818a27.tar.bz2
drakx-ebcfcd6a76e00806286771f50de84bc9a1818a27.tar.xz
drakx-ebcfcd6a76e00806286771f50de84bc9a1818a27.zip
changes to have less "Use of uninitialized value"
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/modules.pm14
1 files changed, 8 insertions, 6 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 2b798ddd9..ceaa1db64 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -335,18 +335,20 @@ sub read_already_loaded {
sub when_load {
my ($name, @options) = @_;
- my $category = module2category($name);
- if ($category =~ m,disk/(scsi|hardware_raid|usb),) {
- add_probeall('scsi_hostadapter', $name);
- eval { load('sd_mod') };
- }
load('snd-pcm-oss') if $name =~ /^snd-/;
- add_alias('sound-slot-0', $name) if $category =~ /sound/;
add_alias('ieee1394-controller', $name) if member($name, 'ohci1394');
add_probeall('usb-interface', $name) if $name =~ /usb-[uo]hci/ || $name eq 'ehci-hcd';
$conf{$name}{options} = join " ", @options if @options;
+
+ if (my $category = module2category($name)) {
+ if ($category =~ m,disk/(scsi|hardware_raid|usb),) {
+ add_probeall('scsi_hostadapter', $name);
+ eval { load('sd_mod') };
+ }
+ add_alias('sound-slot-0', $name) if $category =~ /sound/;
+ }
}
sub cz_file {