From: Mike Rylander <mrylander@gmail.com>
Date: Wed, 11 Sep 2013 20:02:24 +0000 (-0400)
Subject: Support disconnection for forking purposes
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=3db33ca985fce4489bd6d27d61d254150d304ad8;p=working%2FEvergreen.git

Support disconnection for forking purposes

Signed-off-by: Mike Rylander <mrylander@gmail.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm b/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm
index 46c902a6e7..46e9290781 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm
@@ -42,6 +42,10 @@ use constant {
     SIP_DATETIME => "%Y%m%d    %H%M%S",
 };
 
+sub disconnect {
+     OpenSRF::Transport::PeerHandle->retrieve->disconnect
+}
+
 sub new {
     my ($class, $institution, $login) = @_;
     my $type = ref($class) || $class;