diff --git a/lib/WebGUI/Asset/Post.pm b/lib/WebGUI/Asset/Post.pm
index 5371ce6c3..e6a164c6a 100644
--- a/lib/WebGUI/Asset/Post.pm
+++ b/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;
     }
diff --git a/lib/WebGUI/Asset/Wobject/Matrix.pm b/lib/WebGUI/Asset/Wobject/Matrix.pm
index 8c4120e2c..85bf29c32 100644
--- a/lib/WebGUI/Asset/Wobject/Matrix.pm
+++ b/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;
diff --git a/lib/WebGUI/Asset/Wobject/ProjectManager.pm b/lib/WebGUI/Asset/Wobject/ProjectManager.pm
index 747514e62..cd29fa07d 100644
--- a/lib/WebGUI/Asset/Wobject/ProjectManager.pm
+++ b/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
diff --git a/lib/WebGUI/Asset/Wobject/WeatherData.pm b/lib/WebGUI/Asset/Wobject/WeatherData.pm
index 663644db5..7e6361ea0 100644
--- a/lib/WebGUI/Asset/Wobject/WeatherData.pm
+++ b/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;
diff --git a/lib/WebGUI/Operation/Group.pm b/lib/WebGUI/Operation/Group.pm
index 1d3329b38..127febd0e 100644
--- a/lib/WebGUI/Operation/Group.pm
+++ b/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');
diff --git a/lib/WebGUI/Workflow/Activity/CalendarUpdateFeeds.pm b/lib/WebGUI/Workflow/Activity/CalendarUpdateFeeds.pm
index 53084a9b8..c401d9d0a 100755
--- a/lib/WebGUI/Workflow/Activity/CalendarUpdateFeeds.pm
+++ b/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')) {