From 302c326bf7f54441cb76278ef58992143bb6a4f7 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 7 Dec 2011 18:28:58 +0000
Subject: (getSCSI) fix test, thus only overwritting model if found

broken since "(_get_hd_vendor) factorize code (needed for next commit)" on 2010-01-18
---
 perl-install/detect_devices.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 3ad459054..fbe6aa27f 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -239,7 +239,7 @@ sub getSCSI() {
 
 	my ($vendor, $model) = ($get->('vendor'), $get->('model'));
 	my ($v, $m) = _get_hd_vendor($model);
-	if ($v && $v) {
+	if ($v && $m) {
             ($vendor, $model) = ($v, $m);
 	}
 	push @l, { info =>  $vendor . ' ' . $model, host => $host, channel => $channel, id => $id, lun => $lun, 
-- 
cgit v1.2.1