mathieu: server/perl-kolab/lib/Kolab Conf.pm,1.17,1.18

[cvs at kolab.org]

Author: mathieu

Update of /kolabrepository/server/perl-kolab/lib/Kolab
In directory doto:/tmp/cvs-serv29761/perl-kolab/lib/Kolab

Modified Files:
	Conf.pm 
Log Message:
solve kolab/issue4024 (Lots of tmp files in kolab's configuration
directory), introduced 2009-12-13. 


Index: Conf.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/lib/Kolab/Conf.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- Conf.pm	13 Dec 2009 19:48:26 -0000	1.17
+++ Conf.pm	11 Feb 2010 20:06:10 -0000	1.18
@@ -288,6 +288,8 @@
     if($confighaschanged{$tmpl}) {
         move($config->filename, $cfg) || Kolab::log('T', "Error moving configfile to $cfg, error: $!", KOLAB_ERROR );
         fixup( $cfg, $owner, $perm );
+    } else {
+        unlink($config->filename);
     }
 
     Kolab::log('T', "Finished creating configuration file `$cfg'", KOLAB_DEBUG );