From 55e66842e9a8b1dcf3e1396487b00b4904b9b13b Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 4 Jan 2011 15:10:48 +0000
Subject: [PATCH] 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
---
.../src/perlmods/OpenILS/Application/Storage/Publisher/action.pm | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
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
--
2.11.0