From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 4 Jan 2011 15:10:48 +0000 (+0000)
Subject: Patch from Jason Stephenson to silence spurious warnings: https://bugs.launchpad... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=55e66842e9a8b1dcf3e1396487b00b4904b9b13b;p=evergreen%2Fmasslnc.git

Patch from Jason Stephenson to silence spurious warnings: https://bugs.launchpad.net/evergreen/+bug/695510

git-svn-id: svn://svn.open-ils.org/ILS/trunk@19096 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

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 1e16addefe..6b96ffabca 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
@@ -1181,7 +1181,10 @@ sub new_hold_copy_targeter {
 			my $all_copies = [];
 
 			# find filters for MR holds
-			my ($types, $formats, $lang) = split '-', $hold->holdable_formats;
+			my ($types, $formats, $lang);
+			if (defined($hold->holdable_formats)) {
+				($types, $formats, $lang) = split '-', $hold->holdable_formats;
+			}
 
 			# find all the potential copies
 			if ($hold->hold_type eq 'M') {
@@ -1196,7 +1199,7 @@ sub new_hold_copy_targeter {
 								],
 								( $types   ? (item_type => [split '', $types])   : () ),
 								( $formats ? (item_form => [split '', $formats]) : () ),
-								( $lang    ? (item_lang => $lang)                : () ),
+								( $lang	   ? (item_lang => $lang)				 : () ),
 							)
 				) {
 					my ($rtree) = $self