gunnar: server/perl-kolab/lib/Kolab/LDAP/Backend slurpd.pm,1.1,1.2

[cvs at kolab.org]

Author: gunnar

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

Modified Files:
	slurpd.pm 
Log Message:
kolab/issue2478 (kolabd memory leak)

Index: slurpd.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/lib/Kolab/LDAP/Backend/slurpd.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- slurpd.pm	1 Aug 2007 14:57:42 -0000	1.1
+++ slurpd.pm	7 Mar 2008 14:46:48 -0000	1.2
@@ -278,7 +278,15 @@
 		if( !($select->can_read(1)) ) {
 		  $changes = 0;
 		  Kolab::log('SD', 'Change detected w/ no pending LDAP messages; reloading services if needed');
-		  Kolab::LDAP::sync;
+                  my $kidpid = fork();
+		  unless (defined $kidpid) {
+		      die("can't fork: $!");
+		  }
+		  if ($kidpid == 0 ) {
+		      # child
+		      Kolab::LDAP::sync;
+		      exit(0);
+		  }
 		  Kolab::log('SD', "Running $Kolab::config{'kolabconf_script'}");
 		  system($Kolab::config{'kolabconf_script'}) == 0
 		    or Kolab::log('SD', "Failed to run $Kolab::config{'kolabconf_script'}: $?", KOLAB_ERROR);