1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 1878ed0c7..eb6eee009 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -236,13 +236,16 @@ _("Default") => { val => \$default, type => 'bool' },
 }
 
 sub setAutologin {
-  my ($prefix, $user, $exe, $flag) = @_; 
+  my ($prefix, $user, $wm, $exe, $flag) = @_; 
   my $f = "$prefix/etc/sysconfig/autologin";
   my $t1 = "USER=";
   my $t2 = "EXEC=";
   my $t3 = "AUTOLOGIN=";
   substInFile { s/^(\Q$t1\E|\Q$t2\E|\Q$t3\E).*\n//; $_ .= "$t1$user\n$t2$exe\n$t3=$flag" if eof } $f;
   `chmod 644 $f`;
+  local *F;
+  open F, ">$prefix/etc/sysconfig/desktop" or die "Can't open $!";
+  print F "$wm";
 }