summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfig
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/Xconfig')
-rw-r--r--perl-install/Xconfig/main.pm5
-rw-r--r--perl-install/Xconfig/various.pm3
2 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/Xconfig/main.pm b/perl-install/Xconfig/main.pm
index f4729b6c8..d7fd47eaf 100644
--- a/perl-install/Xconfig/main.pm
+++ b/perl-install/Xconfig/main.pm
@@ -59,9 +59,9 @@ sub configure_everything {
if (!$ok) {
($ok) = configure_chooser_raw($in, $raw_X, $do_pkgs, $options, $X, 1);
- } else {
- Xconfig::various::various($in, $X->{card}, $options, $auto);
}
+ $X->{various} ||= Xconfig::various::various($in, $X->{card}, $options, $auto);
+
$ok = may_write($in, $raw_X, $X, $ok);
$ok && 'config_changed';
@@ -117,6 +117,7 @@ sub configure_chooser_raw {
),
{ val => _("Options"), icon => "ic82-tape-40", clicked => sub {
Xconfig::various::various($in, $X->{card}, $options);
+ $X->{various} = 'done';
} },
{ val => $::isInstall ? _("Ok") : _("Quit"), icon => "exit", clicked_may_quit => sub { 1 } },
]);
diff --git a/perl-install/Xconfig/various.pm b/perl-install/Xconfig/various.pm
index 646edf8be..0311026d3 100644
--- a/perl-install/Xconfig/various.pm
+++ b/perl-install/Xconfig/various.pm
@@ -48,6 +48,7 @@ sub various {
tvout($in, $card, $options);
choose_xdm($in, $auto);
+ 1;
}
sub choose_xdm {
@@ -59,7 +60,7 @@ sub choose_xdm {
$xdm = $in->ask_yesorno(_("Graphical interface at startup"),
_("I can setup your computer to automatically start the graphical interface (XFree) upon booting.
-Would you like XFree to start when you reboot?"), $xdm) or return
+Would you like XFree to start when you reboot?"), $xdm) or return;
}
any::runlevel($::prefix, $xdm ? 5 : 3);
}