diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-03-22 10:02:14 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-03-22 10:02:14 +0000 |
| commit | ede85e6cfc2539b726cd9c1fa9498e7b56c06003 (patch) | |
| tree | c885344278d8b359faef984a64313542601d2a1d | |
| parent | d10f773232ce1a78948e85a8232a78be7421179b (diff) | |
| download | drakx-ede85e6cfc2539b726cd9c1fa9498e7b56c06003.tar drakx-ede85e6cfc2539b726cd9c1fa9498e7b56c06003.tar.gz drakx-ede85e6cfc2539b726cd9c1fa9498e7b56c06003.tar.bz2 drakx-ede85e6cfc2539b726cd9c1fa9498e7b56c06003.tar.xz drakx-ede85e6cfc2539b726cd9c1fa9498e7b56c06003.zip | |
fixed wrong access to undefined value promoted to empty array reference.
| -rw-r--r-- | perl-install/Xconfigurator.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index 76a60d544..1aca7978c 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -251,7 +251,7 @@ What do you want to do?"), sub { translate($_[0]{text}) }, \@choices) or return; updateCardAccordingName($card, $card->{type}) if $card->{type}; add2hash($card, { vendor => "Unknown", board => "Unknown" }); - foreach ($card, @{$card->{cards}}) { + foreach ($card, @{$card->{cards} || []}) { $_->{memory} = 4096, delete $_->{depth} if $_->{driver} eq 'i810'; $_->{memory} = 16384, delete $_->{depth} if $_->{chipset} =~ /PERMEDIA/ && $_->{memory} <= 1024; } |