steffen: server/perl-kolab/Kolab-LDAP-Backend-slurpd slurpd.pm, 1.9, 1.10

[cvs at intevation.de]

Author: steffen

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

Modified Files:
	slurpd.pm 
Log Message:
bugfixes

Index: slurpd.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-LDAP-Backend-slurpd/slurpd.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- slurpd.pm	13 Aug 2004 00:34:25 -0000	1.9
+++ slurpd.pm	31 Aug 2004 23:15:47 -0000	1.10
@@ -290,7 +290,8 @@
                 $request = $LDAPRequest->decode($pdu);
                 if (!$request) {
                     Kolab::log('SD', "Unable to decode slurpd request, Error = `" . $LDAPRequest->error . "'", KOLAB_ERROR);
-                    &abort;
+		    $conn->close;
+		    undef $conn;
                 }
                 $_ = getRequestType($request);
                 Kolab::log('SD', "Request $_ received", KOLAB_DEBUG);
@@ -317,7 +318,8 @@
                 $response = $LDAPResponse->decode($pdu);
                 if (!$response) {
                     Kolab::log('SD', "Unable to decode slurpd request, Error = `" . $LDAPRequest->error . "'");
-                    &abort;
+		    $conn->close;
+		    undef $conn;
                 }
             }
         }