From 9919b941ca78b415fab2f6574c0cdee0e7971c7e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 13 Mar 2005 19:34:07 +0000
Subject: fix looking for the user uid.gid

---
 perl-install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index f96322387..5bc15eb03 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -511,7 +511,7 @@ sub set_window_manager {
     #- for KDM/GDM
     my $wm_number = sessions_with_order()->{$wm} || '';
     update_gnomekderc("$p_home/.dmrc", 'Desktop', Session => "$wm_number$wm");
-    my $user = find { $p_home eq $_->[7] } list_passwd();
+    my $user = find { $home eq $_->[7] } list_passwd();
     chown($user->[2], $user->[3], "$p_home/.dmrc");
 
     #- for startx/autologin
-- 
cgit v1.2.1