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

diff --git a/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm b/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm
index 73a82b9..27de89f 100644 (file)
--- 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;
        }