From 6a807f0361b38659906c4b7c1a407fa838d0beab Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Wed, 23 Sep 2009 17:37:11 +0000
Subject: only write dm conf files if they exist before

---
 perl-install/any.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 4bdb423fc..b71305b99 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -681,16 +681,18 @@ sub set_autologin {
       if $autologin->{user} && $autologin->{dm} eq 'xdm';
 
     #- Configure KDM / MDKKDM
-    eval { common::update_gnomekderc_no_create(common::read_alternative('kdm4-config'), 'X-:0-Core' => (
+    my $kdm_conffile = common::read_alternative('kdm4-config');
+    eval { common::update_gnomekderc_no_create($kdm_conffile, 'X-:0-Core' => (
 	AutoLoginEnable => $do_autologin,
 	AutoLoginUser => $autologin->{user},
-    )) };
+    )) } if -e $kdm_conffile;
 
     #- Configure GDM
-    eval { update_gnomekderc("$::prefix/etc/X11/gdm/custom.conf", daemon => (
+    my $gdm_conffile = "$::prefix/etc/X11/gdm/custom.conf";
+    eval { update_gnomekderc($gdm_conffile, daemon => (
 	AutomaticLoginEnable => $do_autologin,
 	AutomaticLogin => $autologin->{user},
-    )) };
+    )) } if -e $gdm_conffile;
 
     my $xdm_autologin_cfg = "$::prefix/etc/sysconfig/autologin";
     if ($autologin->{dm} eq 'xdm') {
-- 
cgit v1.2.1