From e1901eaebeec9302baf5def6f7ef479966d273a0 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 1 Mar 2005 22:59:27 +0000
Subject: [PATCH] using disconnect before kill_me during non-error destruction
 on the server side

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@143 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/DomainObject/oilsMessage.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm b/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm
index 73a82b9..27de89f 100644
--- a/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm
+++ b/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm
@@ -194,7 +194,7 @@ sub do_server {
 
 	
 	if ($mtype eq 'DISCONNECT') {
-		$session->state( $session->DISCONNECTED );
+		$session->disconnect;
 		$session->kill_me;
 		return 0;
 	}
-- 
2.43.2