summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-17 14:28:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-17 14:28:44 +0000
commiteecd31c5835b1521ca0d3de97822ca72083b9a45 (patch)
tree3c0b6286e4150f088148d02153438c1956731cbb /perl-install
parenta5d6fe3636f8080b9603572894ed317aaed6d2c8 (diff)
downloaddrakx-eecd31c5835b1521ca0d3de97822ca72083b9a45.tar
drakx-eecd31c5835b1521ca0d3de97822ca72083b9a45.tar.gz
drakx-eecd31c5835b1521ca0d3de97822ca72083b9a45.tar.bz2
drakx-eecd31c5835b1521ca0d3de97822ca72083b9a45.tar.xz
drakx-eecd31c5835b1521ca0d3de97822ca72083b9a45.zip
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)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm3
1 files changed, 2 insertions, 1 deletions
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);
}
}