From eecd31c5835b1521ca0d3de97822ca72083b9a45 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 17 Feb 2003 14:28:44 +0000 Subject: ensure $o->{raw_X} is not destroyed when there is no modification done (since in that case Xconfig::main::configure_everything_or_configure_chooser() returns undef) --- perl-install/install_steps_interactive.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index ba0bb5124..5254b74ae 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -1204,7 +1204,8 @@ sub configureX { }; require Xconfig::main; - if ($o->{raw_X} = Xconfig::main::configure_everything_or_configure_chooser($o, $options, !$expert, $o->{keyboard}, $o->{mouse})) { + if (my $raw_X = Xconfig::main::configure_everything_or_configure_chooser($o, $options, !$expert, $o->{keyboard}, $o->{mouse})) { + $o->{raw_X} = $raw_X; install_steps::configureXAfter($o); } } -- cgit v1.2.1