summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-11-02 21:16:52 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-11-02 21:16:52 +0000
commit94e2ebc3294bb23855db3b9acabe6df9f2801df9 (patch)
treeaf79023ac3d9b219dbd5be13c196e425c5a31ca8 /perl-install
parent0b87000cc38dfcbf937ffc84d4949af5df19bfe3 (diff)
downloaddrakx-backup-do-not-use-94e2ebc3294bb23855db3b9acabe6df9f2801df9.tar
drakx-backup-do-not-use-94e2ebc3294bb23855db3b9acabe6df9f2801df9.tar.gz
drakx-backup-do-not-use-94e2ebc3294bb23855db3b9acabe6df9f2801df9.tar.bz2
drakx-backup-do-not-use-94e2ebc3294bb23855db3b9acabe6df9f2801df9.tar.xz
drakx-backup-do-not-use-94e2ebc3294bb23855db3b9acabe6df9f2801df9.zip
perl_checker cleanups
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm5
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;