From ed0e070f2f50f0c2283651e1de0c9bb6713f3c29 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Fri, 1 Sep 2000 07:57:16 +0000
Subject: *** empty log message ***

---
 perl-install/any.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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

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";
 }
 
 
-- 
cgit v1.2.1