diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-11-02 21:16:52 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-11-02 21:16:52 +0000 |
| commit | 94e2ebc3294bb23855db3b9acabe6df9f2801df9 (patch) | |
| tree | af79023ac3d9b219dbd5be13c196e425c5a31ca8 /perl-install/detect_devices.pm | |
| parent | 0b87000cc38dfcbf937ffc84d4949af5df19bfe3 (diff) | |
| download | drakx-94e2ebc3294bb23855db3b9acabe6df9f2801df9.tar drakx-94e2ebc3294bb23855db3b9acabe6df9f2801df9.tar.gz drakx-94e2ebc3294bb23855db3b9acabe6df9f2801df9.tar.bz2 drakx-94e2ebc3294bb23855db3b9acabe6df9f2801df9.tar.xz drakx-94e2ebc3294bb23855db3b9acabe6df9f2801df9.zip | |
perl_checker cleanups
Diffstat (limited to 'perl-install/detect_devices.pm')
| -rw-r--r-- | perl-install/detect_devices.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index df38e8667..bab70ebc6 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -787,8 +787,8 @@ sub dmidecode() { foreach (run_program::get_stdout('dmidecode')) { if (/^\t\t(.*)/) { - $l[-1]->{string} .= "$1\n"; - $l[-1]->{$1} = $2 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$//; @@ -799,7 +799,6 @@ sub dmidecode() { } sub computer_info() { - my $dmidecode_infos; my @l = dmidecode(); my $chassis = (find { $_->{name} eq 'Chassis' } @l) || { string => '' }; my $Chassis = $chassis->{string} =~ /^Type:\s*(\S+)/m && $1; |