From 783137dd06cd5a36b91dba26f120e7f90f37a1da Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 1 May 2013 20:40:49 +0000
Subject: make xdm installation automatic in auto_inst mode (mga#9875)

---
 perl-install/any.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index eb7b86e06..33afd1743 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -705,15 +705,15 @@ sub is_standalone_autologin_needed {
 }
 
 sub set_autologin {
-    my ($do_pkgs, $autologin) = @_;
+    my ($do_pkgs, $autologin, $o_auto) = @_;
     log::l("set_autologin $autologin->{user} $autologin->{desktop}");
     my $do_autologin = bool2text($autologin->{user});
 
     $autologin->{dm} ||= 'xdm';
-    $do_pkgs->ensure_is_installed($autologin->{dm})
+    $do_pkgs->ensure_is_installed($autologin->{dm}, undef, $o_auto)
       or return;
     if ($autologin->{user} && is_standalone_autologin_needed($autologin->{dm})) {
-        $do_pkgs->ensure_is_installed('autologin', '/usr/bin/startx.autologin')
+        $do_pkgs->ensure_is_installed('autologin', '/usr/bin/startx.autologin', $o_auto)
           or return;
     }
 
-- 
cgit v1.2.1