From 0da4d0ead2ea20be34ec9c5763dd8ae0309caec8 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 1 Aug 2002 16:20:15 +0000 Subject: perl_checker fixes --- perl-install/harddrake/data.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'perl-install/harddrake') diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm index b69f53c1a..d7eb38011 100644 --- a/perl-install/harddrake/data.pm +++ b/perl-install/harddrake/data.pm @@ -59,10 +59,13 @@ our @tree = ["UNKNOWN","Unknown/Others", "unknown.png", "" , \&unknown], ["PRINTER","Printer", "hw_printer.png", "$sbindir/printerdrake", - sub { require printerdrake; printerdrake::auto_detect(class_discard->new) } ], + sub { + require printerdrake; printerdrake::auto_detect(class_discard->new) } ], ["SCANNER","Scanner", "scanner.png", "$sbindir/scannerdrake", - sub { require scanner; scanner::findScannerUsbport() }], - ["MOUSE","Mouse", "hw_mouse.png", "$sbindir/mousedrake", sub { require mouse; &mouse::detect() } ], + sub { + require scanner; scanner::findScannerUsbport() }], + ["MOUSE","Mouse", "hw_mouse.png", "$sbindir/mousedrake", sub { + require mouse; &mouse::detect() } ], ["JOYSTICK","Joystick", "joystick.png", "", sub {}], ["ATA_STORAGE","(E)IDE/ATA controllers", "ide_hd.png", "", sub { grep { $_->{media_type} =~ 'STORAGE_IDE' } @devices}], -- cgit v1.2.1