From ecb02df787ce884763061f7613fed6fc3fc988ff Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 18 Sep 2009 15:28:17 +0000 Subject: [PATCH] repaired perl syntax on map call git-svn-id: svn://svn.open-ils.org/ILS/trunk@14047 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm | 4 ++-- 1 file changed, 2 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 e18673f48..3d8440159 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; -- 2.11.0