diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-01-11 19:41:23 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-01-11 19:41:23 +0000 |
| commit | bb612c87e63aacd91d1140865fe88e9028ae0b13 (patch) | |
| tree | 096672cc56e32835bab8867822030f9ae41dee85 /perl-install | |
| parent | 62aacf365cfd1c466f9fb253d21d02979d7d8610 (diff) | |
| download | drakx-bb612c87e63aacd91d1140865fe88e9028ae0b13.tar drakx-bb612c87e63aacd91d1140865fe88e9028ae0b13.tar.gz drakx-bb612c87e63aacd91d1140865fe88e9028ae0b13.tar.bz2 drakx-bb612c87e63aacd91d1140865fe88e9028ae0b13.tar.xz drakx-bb612c87e63aacd91d1140865fe88e9028ae0b13.zip | |
(dmidecode) do not rerun dmidecode on machines that do not support it
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/detect_devices.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 4eb555a8c..9b058f525 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -791,11 +791,11 @@ sub hasSMP() { } sub hasPCMCIA() { $::o->{pcmcia} } #- because /proc/pcmcia seems not to be present on 2.4 at least (or use /var/run/stab) -my @dmis; +my (@dmis, $dmidecode_already_runned); # we return a list b/c several DMIs have the same name: sub dmidecode() { - return @dmis if @dmis; + return @dmis if $dmidecode_already_runned; foreach (run_program::get_stdout('dmidecode')) { if (/^\t\t(.*)/) { @@ -807,6 +807,7 @@ sub dmidecode() { push @dmis, { name => $s }; } } + $dmidecode_already_runned = 1; @dmis; } |