From a30587f7ad726465b2511e604481e2ab880f3d34 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Wed, 5 Dec 2007 23:49:21 +0000
Subject: [PATCH] fix: Shouldn't modify $_ in list, PBP p114

---
 lib/WebGUI/Asset/Wobject/Calendar.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/Calendar.pm b/lib/WebGUI/Asset/Wobject/Calendar.pm
index 8755ccb8f..77ab86e4f 100644
--- a/lib/WebGUI/Asset/Wobject/Calendar.pm
+++ b/lib/WebGUI/Asset/Wobject/Calendar.pm
@@ -857,8 +857,10 @@ sub processPropertiesFromFormPost {
     # Workaround WebGUI::Session::Form->param bug that returns duplicate
     # names.
     my %feeds;
-    $feeds{$_}++ 
-        for map { s/^feeds-//; $_; } grep /^feeds-/,($form->param());
+    for my $feedId ( grep /^feeds-/, ($form->param()) ) {
+        $feedId =~ s/^feeds-//;
+        $feeds{$feedId}++;
+    }
     my @feedsFromForm = keys %feeds;
     
     # Delete old feeds that are not in @feeds