From 762713ce55cadc5cac597cbe5ea4e26f4f76fb9c Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Fri, 1 Sep 2000 23:38:41 +0000
Subject: autologin update. It should work

---
 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 132e72831..dbe72b38e 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -241,11 +241,14 @@ sub setAutologin {
   my $t1 = "USER=";
   my $t2 = "EXEC=";
   my $t3 = "AUTOLOGIN=";
+  $wm=uc($wm);
   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";
+  print F <<END;
+$wm
+END
 }
 
 
-- 
cgit v1.2.1