From e29430e040fb03c614900bbb39ec428c610a8726 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 9 May 2000 11:29:46 +0000
Subject: *** empty log message ***

---
 perl-install/detect_devices.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 78f0ff218..ad35871cc 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -283,7 +283,7 @@ sub probeSerialDevices {
     open F, "serial_probe 2>/dev/null |";
     my %current = (); foreach (<F>) {
 	chomp;
-	$serialprobe{$current{DEVICE}} = { %current } and %current = () if /^\s*$/;
+	$serialprobe{$current{DEVICE}} = { %current } and %current = () if /^\s*$/ && $current{DEVICE};
 	$current{$1} = $2 if /^([^=]+)=(.*)$/;
     }
     close F;
-- 
cgit v1.2.1