diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-11-02 11:02:41 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-11-02 11:02:41 +0000 |
| commit | beeba5116f6e35ec1cd4a1588ca4769c27033d17 (patch) | |
| tree | 5c4cdf57f737af0b86588a18ed0b3cc95c672a18 /perl-install | |
| parent | 0c02170bc06646d71f547779a211f31435b8a6bb (diff) | |
| download | drakx-beeba5116f6e35ec1cd4a1588ca4769c27033d17.tar drakx-beeba5116f6e35ec1cd4a1588ca4769c27033d17.tar.gz drakx-beeba5116f6e35ec1cd4a1588ca4769c27033d17.tar.bz2 drakx-beeba5116f6e35ec1cd4a1588ca4769c27033d17.tar.xz drakx-beeba5116f6e35ec1cd4a1588ca4769c27033d17.zip | |
(dmidecode) provide more fields
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/detect_devices.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index d596ffe90..df38e8667 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -788,6 +788,7 @@ sub dmidecode() { foreach (run_program::get_stdout('dmidecode')) { if (/^\t\t(.*)/) { $l[-1]->{string} .= "$1\n"; + $l[-1]->{$1} = $2 if /^\t\t(.*): (.*)$/; } elsif (my ($s) = /^\t(.*)/) { next if $s =~ /^DMI type /; $s =~ s/ Information$//; |