From d40b6d76edcdcd6af50a6ff643140718ac3d9655 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 26 Jul 2006 17:04:01 +0000
Subject: [PATCH] break the loop if there are no capturable copies at this
 proximity

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5111 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
index 6abf846ad7..33dd5cde94 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
@@ -1053,6 +1053,7 @@ sub choose_nearest_copy {
 				  request_lib => $hold->request_lib->to_fieldmapper,
 				}
 			)) {
+				last unless(@capturable);
 				$rand = int(rand(scalar(@capturable)));
 				next;
 			}
-- 
2.11.0