From 90afa984baae658b977afbaf6f52ff70d2665127 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 6 Jan 2009 15:54:45 +0000
Subject: perl_checker cleanups [backported from trunk]

---
 perl-install/harddrake/data.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index c914c0d5c..d02028eac 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -451,7 +451,7 @@ our @tree =
       string => N("Printer"),
       icon => "hw_printer.png",
       configurator => "$sbindir/printerdrake",
-      detector => sub { },
+      detector => sub {},
       # we do not check these b/c this need user interaction (auth, ...):
       checked_on_boot => 0,
      },
@@ -487,8 +487,8 @@ our @tree =
       detector => sub {
           f(grep { $_->{description} =~ /Keyboard/i || $_->{media_type} =~ /Subclass\|Keyboard/i ||
                      # USB devices are filtered out since we already catch them through probeall():
-                     $_->{bus} ne 'usb' && $_->{driver} eq 'kbd' && $_->{description} !~ /PC Speaker/
-                 } @devices),
+                     $_->{bus} ne 'usb' && $_->{driver} eq 'kbd' && $_->{description} !~ /PC Speaker/;
+                 } @devices);
       },
       checked_on_boot => 0,
      },
@@ -510,8 +510,8 @@ our @tree =
       detector => sub {
           f(grep { $_->{driver} =~ /^Mouse:|^Tablet:/ || $_->{media_type} =~ /class\|Mouse/ ||
                      # USB devices are filtered out since we already catch them through probeall():
-                     $_->{bus} ne 'usb' && $_->{Handlers}{mouse}
-                 } @devices),
+                     $_->{bus} ne 'usb' && $_->{Handlers}{mouse};
+                 } @devices);
       },
       checked_on_boot => 1,
       automatic => 1,
-- 
cgit v1.2.1