diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-07-25 20:07:48 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-07-25 20:07:48 +0000 |
| commit | 50d7dab85114fb42f83f7cd7d4fa7c5f22c282b5 (patch) | |
| tree | c85b70d9c918bb52705861f6cc4a35fc255fe172 /perl-install/harddrake | |
| parent | f0478464cd7233e8b103a3a0625fbf381f5ab405 (diff) | |
| download | drakx-backup-do-not-use-50d7dab85114fb42f83f7cd7d4fa7c5f22c282b5.tar drakx-backup-do-not-use-50d7dab85114fb42f83f7cd7d4fa7c5f22c282b5.tar.gz drakx-backup-do-not-use-50d7dab85114fb42f83f7cd7d4fa7c5f22c282b5.tar.bz2 drakx-backup-do-not-use-50d7dab85114fb42f83f7cd7d4fa7c5f22c282b5.tar.xz drakx-backup-do-not-use-50d7dab85114fb42f83f7cd7d4fa7c5f22c282b5.zip | |
only do one probeall here (there's still many in detect_devices,
probing caching should go there)
Diffstat (limited to 'perl-install/harddrake')
| -rw-r--r-- | perl-install/harddrake/data.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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], |