From 63f9446b69e9de2a963797090002f46145d866d8 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 26 Nov 1999 20:36:21 +0000 Subject: no_comment --- perl-install/install_any.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 52731da54..02752b381 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -397,9 +397,10 @@ sub g_auto_install(;$) { exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(lang autoSCSI authentication printer mouse netc timezone superuser intf keyboard mkbootdisk base users installClass partitioning isUpgrade manualFstab nomouseprobe); #- TODO modules bootloader - my $card = $::o->{X}{card}; - $o->{X}{card}{$_} = $card->{$_} foreach qw(default_depth); - $o->{X}{card}{resolution_wanted} = join "x", @{$card->{depth}{$card->{default_depth}}[0]}; + if (my $card = $::o->{X}{card}) { + $o->{X}{card}{$_} = $card->{$_} foreach qw(default_depth); + $o->{X}{card}{resolution_wanted} = join "x", @{$card->{depth}{$card->{default_depth}}[0]}; + } #- local $o->{partitioning}{clearall} = 1; -- cgit v1.2.1