From bf37fd8269e068469a69b607ce67091608ab9f02 Mon Sep 17 00:00:00 2001
From: Chris Cormack <crc@liblime.com>
Date: Mon, 11 Feb 2008 21:09:39 -0600
Subject: [PATCH] Fix for Zconn not creating a new connection when zebra goes
 away and comes

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Context.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Context.pm b/C4/Context.pm
index 303b38116d..4a0564cd7f 100644
--- 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 {
-- 
2.39.5