summaryrefslogtreecommitdiffstats
path: root/perl-install/harddrake
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-10-23 11:34:26 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-10-23 11:34:26 +0000
commit13b0f7f86b1626b6aa94653002c6782b63f8f04b (patch)
tree7a32ed8afaa8ac61b5fa4b21df6fbd4fe48d007f /perl-install/harddrake
parent05c4b4b232f187ad0513f463363b380694c587c5 (diff)
downloaddrakx-backup-do-not-use-13b0f7f86b1626b6aa94653002c6782b63f8f04b.tar
drakx-backup-do-not-use-13b0f7f86b1626b6aa94653002c6782b63f8f04b.tar.gz
drakx-backup-do-not-use-13b0f7f86b1626b6aa94653002c6782b63f8f04b.tar.bz2
drakx-backup-do-not-use-13b0f7f86b1626b6aa94653002c6782b63f8f04b.tar.xz
drakx-backup-do-not-use-13b0f7f86b1626b6aa94653002c6782b63f8f04b.zip
nono changes for stupid perl_checker whose maintainer don't want to fix deficienties
Diffstat (limited to 'perl-install/harddrake')
-rw-r--r--perl-install/harddrake/data.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index e581c3bb9..efa673ed1 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -24,7 +24,7 @@ our @tree =
["FLOPPY","Floppy", "floppy.png", "",\&detect_devices::floppies, 0 ],
["HARDDISK","Disk", "harddisk.png", "$sbindir/diskdrake", \&detect_devices::hds, 1 ],
["CDROM","CDROM", "cd.png", "", sub { grep { !(detect_devices::isBurner($_) || detect_devices::isDvdDrive($_)) } &detect_devices::cdroms } , 0 ],
- ["BURNER","CD/DVD burners", "cd.png", "", \&detect_devices::burners, 0 ],
+ ["BURNER","CD/DVD burners", "cd.png", "", \&detect_devices::burners(), 0 ],
["DVDROM","DVD-ROM", "cd.png", "", sub { grep { ! detect_devices::isBurner($_) } detect_devices::dvdroms}, 0 ],
["TAPE","Tape", "tape.png", "", \&detect_devices::tapes, 0 ],
["VIDEO","Videocard", "video.png", "$sbindir/XFdrake", sub { grep { $_->{driver} =~ /^(Card|Server):/ || $_->{media_type} =~ 'DISPLAY_VGA' } @devices }, 1 ],
@@ -45,8 +45,10 @@ our @tree =
["BRIDGE","Bridge(s)", "memory.png", "", sub { grep { $_->{media_type} =~ 'BRIDGE' } @devices}, 0 ],
["UNKNOWN","Unknown/Others", "unknown.png", "" , \&unknown, 0 ],
- ["PRINTER","Printer", "hw_printer.png", "$sbindir/printerdrake", sub { require printerdrake; printerdrake::detect() } , 0 ],
- ["SCANNER","Scanner", "scanner.png", "$sbindir/scannerdrake", sub { require scanner; scanner::detect() }, 0 ],
+ ["PRINTER","Printer", "hw_printer.png", "$sbindir/printerdrake", sub {
+ require printerdrake; printerdrake::detect() } , 0 ],
+ ["SCANNER","Scanner", "scanner.png", "$sbindir/scannerdrake", sub {
+ require scanner; scanner::detect() }, 0 ],
["MOUSE","Mouse", "hw_mouse.png", "$sbindir/mousedrake", sub {
require mouse;
require modules;