From 4dc9cbae3e20bb75dd1e98ace159444fd2ad27a8 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 10 Jun 2010 19:51:55 -0700
Subject: [PATCH] Fix storageId cleanup, had a syntax error in perl 5.10.1

---
 t/Asset/Story.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/t/Asset/Story.t b/t/Asset/Story.t
index 9c200ddc2..d66ffce75 100644
--- a/t/Asset/Story.t
+++ b/t/Asset/Story.t
@@ -412,7 +412,10 @@ cmp_deeply(
 isnt($newPhotoData->[0]->{storageId}, $photoData->[0]->{storageId}, '... and storage 0 is duplicated');
 isnt($newPhotoData->[1]->{storageId}, $photoData->[1]->{storageId}, '... and storage 1 is duplicated');
 
-WebGUI::Test->addToCleanup( map { 'WebGUI::Storage' => $_->{storageId} } @{ $newPhotoData } );
+{
+    my %hash = map { ('WebGUI::Storage' => $_->{storageId}) } @{ $newPhotoData };
+    WebGUI::Test->addToCleanup(%hash);
+}
 
 ############################################################
 #