From 50d7dab85114fb42f83f7cd7d4fa7c5f22c282b5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 25 Jul 2002 20:07:48 +0000 Subject: only do one probeall here (there's still many in detect_devices, probing caching should go there) --- perl-install/harddrake/data.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/harddrake') diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm index 970299d76..24df932d9 100644 --- a/perl-install/harddrake/data.pm +++ b/perl-install/harddrake/data.pm @@ -8,9 +8,11 @@ use class_discard; our (@ISA, @EXPORT_OK) = (qw(Exporter), (qw(version tree))); our ($version, $sbindir, $bindir) = ("1.1.6", "/usr/sbin", "/usr/bin"); +my @devices = detect_devices::probeall(1); + # Update me each time you handle one more devices class (aka configurator) sub unknown { - grep { ($_->{media_type} !~ /tape|SERIAL_(USB|SMBUS)|Printer|DISPLAY|MULTIMEDIA_(VIDEO|AUDIO|OTHER)|STORAGE_IDE|BRIDGE|NETWORK/) && ($_->{driver} ne 'scanner') } detect_devices::probeall(1); + grep { ($_->{media_type} !~ /tape|SERIAL_(USB|SMBUS)|Printer|DISPLAY|MULTIMEDIA_(VIDEO|AUDIO|OTHER)|STORAGE_IDE|BRIDGE|NETWORK/) && ($_->{driver} ne 'scanner') } @devices; } @@ -18,8 +20,6 @@ sub unknown { # NEVER, NEVER alter CLASS_ID or you'll harddrake2 service to detect changes # in hw configuration ... :-( -my @devices = detect_devices::probeall(1); - our @tree = ( ["FLOPPY","Floppy", "floppy.png", "",\&detect_devices::floppies], -- cgit v1.2.1