From 6d1aef46d744ff083f4c992e184d749b946a010c Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Fri, 9 Oct 2009 15:49:53 +0000
Subject: fix guessing dm name from lookupdm

---
 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 1b6caa42a..89ccdcd6b 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -654,7 +654,7 @@ sub get_autologin() {
     my $dm =
       lc($desktop{DISPLAYMANAGER}) ||
       $desktop_to_dm{$desktop} ||
-      chomp_(run_program::rooted_get_stdout($::prefix, "/etc/X11/lookupdm"));
+      basename(chomp_(run_program::rooted_get_stdout($::prefix, "/etc/X11/lookupdm"));
     $dm = $dm_canonical{$dm} if exists $dm_canonical{$dm};
 
     my $autologin_user;
-- 
cgit v1.2.1