From f9640e4952073e66f428c1fe3691c435c1e4bb63 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 6 Aug 2002 20:29:40 +0000
Subject: - dont detect undef devices

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

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

diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index 1bc381c9d..a820bd41d 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -65,7 +65,7 @@ sub detect {
 							  }};
 	++$i;
     }
-    foreach ({$_->{media_type} =~ /scanner/  } detect_devices::getSCSI()) {
+    foreach (grep {$_->{media_type} =~ /scanner/  } detect_devices::getSCSI()) {
 	   push @res, { port => "/dev/usb/scanner$i", 
 				 val => { DESCRIPTION => $_->{info} },
 	   };
-- 
cgit v1.2.1