From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 18 Sep 2009 15:28:17 +0000 (+0000)
Subject: repaired perl syntax on map call
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=ecb02df787ce884763061f7613fed6fc3fc988ff;p=evergreen%2Fmasslnc.git

repaired perl syntax on map call

git-svn-id: svn://svn.open-ils.org/ILS/trunk@14047 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 e18673f48c..3d8440159e 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
@@ -1064,7 +1064,7 @@ sub new_hold_copy_targeter {
 				)->gather(1);
 
 				if (defined($max_loops)) {
-					my %circ_lib_map =  map ( $_->circ_lib => 1 ) @$all_copies;
+					my %circ_lib_map =  map { $_->circ_lib => 1 } @$all_copies;
 					my $circ_lib_list = [keys %circ_lib_map];
 	
 					my $cstore = OpenSRF::AppSession->connect('open-ils.cstore');
@@ -1093,7 +1093,7 @@ sub new_hold_copy_targeter {
 	
 					my @keepers;
 					if ($exclude_list && @$exclude_list) {
-						$exclude_list = [map ($_->{circ_lib}) @$exclude_list];
+						$exclude_list = [map {$_->{circ_lib}} @$exclude_list];
 						# check to see if we've used up every library in the potentials list
 						for my $l ( @$circ_lib_list ) {
 							my $keep = 1;