[open-ils-commits] r14047 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-09-18 11:28:17 -0400 (Fri, 18 Sep 2009)
New Revision: 14047

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
Log:
repaired perl syntax on map call

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2009-09-18 13:45:13 UTC (rev 14046)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2009-09-18 15:28:17 UTC (rev 14047)
@@ -1064,7 +1064,7 @@
 				)->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 @@
 	
 					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;