summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/drakedm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/standalone/drakedm b/perl-install/standalone/drakedm
index 81215d61f..76e4e53c0 100644
--- a/perl-install/standalone/drakedm
+++ b/perl-install/standalone/drakedm
@@ -39,6 +39,7 @@ foreach (cat_($cfg_file)) {
$dm = uc($1) if /^DISPLAYMANAGER=(.*)$/;
}
+start:
if ($in->ask_from(N("Choosing a display manager"),
formatAlaTeX(N("X11 Display Manager allows you to graphically log
into your system with the X Window System running and supports running
@@ -55,12 +56,12 @@ several different X sessions on your local machine at the same time.")),
)
) {
log::explanations("modified file $cfg_file");
+ ! -x $dm{$dm}[1] && do { $in->do_pkgs->ensure_is_installed($dm{$dm}[2], $dm{$dm}[1]) or goto start };
substInFile {
s/^(DISPLAYMANAGER)=.*(\n|)//;
s/^\n//g;
$_ .= "\nDISPLAYMANAGER=$dm\n" if eof;
} $cfg_file;
- $in->do_pkgs->install($dm{$dm}[2]) unless -x $dm{$dm}[1];
}
$in->exit(0);