From 15be70a22798543af0e3cc2cadd3b66668b122a2 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 6 Aug 2002 20:34:18 +0000
Subject: make perl_checker happier :-)

---
 perl-install/harddrake/data.pm | 2 +-
 perl-install/scanner.pm        | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index 285585836..f00cc6fa2 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -53,7 +53,7 @@ our @tree =
 	["MODEM","Modem", "modem.png", "", sub { require network::modem; 
 									 my $modem;
 									 network::modem::modem_detect_backend($modem);
-									 grep {$modem->{device} } @{ $modem};
+									 grep { $modem->{device} } @{ $modem };
 								  } ],
 #	["","Isdn", "", "", \&detect_devices::getNet]
 
diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index a820bd41d..502237c19 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -65,7 +65,7 @@ sub detect {
 							  }};
 	++$i;
     }
-    foreach (grep {$_->{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