From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 20 Dec 2007 14:50:29 +0000 (+0000)
Subject: skip z sources if none are connected
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=04291b18c526ffa53d5929587846da3808eb3ad7;p=Evergreen.git

skip z sources if none are connected

git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@8248 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
index 5813c405a1..967b52743f 100755
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
@@ -184,6 +184,7 @@ sub do_class_search {
 
 	$logger->debug("z3950: Connections created");
 
+    return undef unless (@connections);
 	while ((my $index = OpenILS::Utils::ZClient::event( \@connections )) != 0) {
 		my $ev = $connections[$index - 1]->last_event();
 		$logger->debug("z3950: Received event $ev");