summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-03-22 10:02:14 +0000
committerFrancois Pons <fpons@mandriva.com>2001-03-22 10:02:14 +0000
commitede85e6cfc2539b726cd9c1fa9498e7b56c06003 (patch)
treec885344278d8b359faef984a64313542601d2a1d /perl-install/Xconfigurator.pm
parentd10f773232ce1a78948e85a8232a78be7421179b (diff)
downloaddrakx-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.
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm2
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;
}