diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-10-23 11:34:26 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-10-23 11:34:26 +0000 |
| commit | 13b0f7f86b1626b6aa94653002c6782b63f8f04b (patch) | |
| tree | 7a32ed8afaa8ac61b5fa4b21df6fbd4fe48d007f /perl-install | |
| parent | 05c4b4b232f187ad0513f463363b380694c587c5 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/harddrake/data.pm | 8 |
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; |