From cfc6afe6d714a0adf5fdc0d3009207c0383eee7d Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Fri, 9 Oct 2009 16:26:12 +0000
Subject: fix syntax error

---
 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 98e3c0d56..feabbb7f0 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} ||
-      basename(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