Fix for Zconn not creating a new connection when zebra goes away and comes

Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/C4/Context.pm b/C4/Context.pm
index 303b381..4a0564c 100644 (file)
--- a/C4/Context.pm
+++ b/C4/Context.pm
@@ -494,7 +494,7 @@ sub Zconn {
     my $auth=shift;
     my $piggyback=shift;
     my $syntax=shift;
-    if ( defined($context->{"Zconn"}->{$server}) ) {
+    if ( defined($context->{"Zconn"}->{$server}) && !$context->{"Zconn"}->{$server}->exception() ) {
         return $context->{"Zconn"}->{$server};
     # No connection object or it died. Create one.
     }else {