diff options
| -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; } |