clear out some compile warnings

lib/WebGUI/Asset/Post.pm

@@ -1455,7 +1455,7 @@ sub www_showConfirmation {
 		$url = $self->getThread->getParent->getUrl;
 	}
     my $parent = $self->getThread;
-    my ($collabSystem, $templateId);
+    my $collabSystem;
     if($parent->isa('WebGUI::Asset::Wobject::Collaboration')) {
         $collabSystem = $parent;
     }

lib/WebGUI/Asset/Wobject/Matrix.pm

@@ -788,7 +788,6 @@ sub www_editListingSave {
             $oldTag->setWorking
                 if defined $oldTag;
         }
-        my $forum = WebGUI::
     }
 	$data{maintainerId} = $self->session->form->process("maintainerId") if ($self->canEdit);
 	$data{assetId} = $self->getId;

lib/WebGUI/Asset/Wobject/ProjectManager.pm

@@ -1139,7 +1139,7 @@ sub www_editProjectSave {
     }
 	
 	#Save the extended project data
-	my $projectId = $self->setCollateral("PM_project","projectId",$props,0,1);
+	$projectId = $self->setCollateral("PM_project","projectId",$props,0,1);
 	
 	if($origProjId eq "new") {
 	   #Create Project Start Milestone Task for new projects

lib/WebGUI/Asset/Wobject/WeatherData.pm

@@ -19,6 +19,7 @@ use Weather::Com::Finder;
 BEGIN {
     # This is horrible, and needs to be removed when Weather::Com > 0.5.3 is released.
     my $old_get_weather = \&Weather::Com::Base::get_weather;
+    no warnings 'redefine';
     *Weather::Com::Base::get_weather = sub {
         my $self = shift;
         $self->{LINKS} = 1;

lib/WebGUI/Operation/Group.pm

@@ -729,20 +729,18 @@ sub www_manageGroupsInGroup {
     );
 
 	my @groups;
-	my $group = WebGUI::Group->new($session,$session->form->process("gid"));
 	my $groupsIn = $group->getGroupsIn(1);
 	my $groupsFor = $group->getGroupsFor;
 	push(@groups, @$groupsIn,@$groupsFor,$session->form->process("gid"));
-	my $i18n = WebGUI::International->new($session);
-        $f->group(
+    $f->group(
 		-name=>"groups",
 		-excludeGroups=>\@groups,
 		-label=>$i18n->get(605),
 		-size=>5,
 		-multiple=>1
 		);
-        $f->submit;
-        my $output = $f->print;
+    $f->submit;
+    my $output = $f->print;
 	$output .= '<p />';
 	$output .= walkGroups($session, $session->form->process("gid"));
 	return _submenu($session,$output,'813');

lib/WebGUI/Workflow/Activity/CalendarUpdateFeeds.pm

@@ -88,7 +88,6 @@ sub execute {
     my $startTime = time();
     my $dt      = WebGUI::DateTime->new($session, $startTime)->toMysql;
 
-    local $JSON::UnMapping = 1;
     my $eventList   = [];
     my $feedList;
     if ($instance->getScratch('events')) {