From 8e8821f1ce8ab75f7a0c6b1e062dad8597555757 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 19 Jan 2000 04:51:33 +0000
Subject: no_comment

---
 perl-install/detect_devices.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index f5deb81d6..2f22a3977 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -128,9 +128,9 @@ sub getDAC960() {
     #- We are looking for lines of this format:DAC960#0:
     #- /dev/rd/c0d0: RAID-7, Online, 17928192 blocks, Write Thru0123456790123456789012
     foreach (syslog()) {
-	my ($devicename, $info) = m|/dev/rd/(.*?): (.*?),| or next;
-	push @idi, { info => $info, type => 'hd', devicename => $devicename };
-	log::l("DAC960: $devicename: $info");
+	my ($device, $info) = m|/dev/rd/(.*?): (.*?),| or next;
+	push @idi, { info => $info, type => 'hd', device => $device };
+	log::l("DAC960: $device ($info)");
     }
     @idi;
 }
-- 
cgit v1.2.1