[open-ils-commits] r8248 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: miker
Date: 2007-12-20 09:50:29 -0500 (Thu, 20 Dec 2007)
New Revision: 8248

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
skip z sources if none are connected

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-20 14:26:10 UTC (rev 8247)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-20 14:50:29 UTC (rev 8248)
@@ -184,6 +184,7 @@
 
 	$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");