summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-05-29 11:02:40 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-05-29 11:02:40 +0000
commit436a081d985d376060908b1db436a6ad2691d593 (patch)
treeab1f18ab702a99dc20e6414b8e0fa9a663feaba3 /perl-install/detect_devices.pm
parent29a46a67b641f94dbb5b2afc7e9028ea5408fb71 (diff)
downloaddrakx-436a081d985d376060908b1db436a6ad2691d593.tar
drakx-436a081d985d376060908b1db436a6ad2691d593.tar.gz
drakx-436a081d985d376060908b1db436a6ad2691d593.tar.bz2
drakx-436a081d985d376060908b1db436a6ad2691d593.tar.xz
drakx-436a081d985d376060908b1db436a6ad2691d593.zip
*** empty log message ***
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index eedaa33fd..561ba1fd2 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -146,16 +146,16 @@ sub getCompaqSmartArray() {
}
sub getDAC960() {
- my @idi;
+ my %idi;
#- We are looking for lines of this format:DAC960#0:
#- /dev/rd/c0d0: RAID-7, Online, 17928192 blocks, Write Thru0123456790123456789012
foreach (syslog()) {
my ($device, $info) = m|/dev/(rd/.*?): (.*?),| or next;
- push @idi, { info => $info, type => 'hd', device => $device };
+ $idi{$device} = { info => $info, type => 'hd', device => $device };
log::l("DAC960: $device ($info)");
}
- @idi;
+ values %idi;
}
sub net2module() {