diff --git a/lib/WebGUI/Asset/Event.pm b/lib/WebGUI/Asset/Event.pm
index 0a2ea7157..b5eb25ff0 100644
--- a/lib/WebGUI/Asset/Event.pm
+++ b/lib/WebGUI/Asset/Event.pm
@@ -231,8 +231,9 @@ sub view {
 	$var{"delete.url"} = $self->session->url->page('func=deleteEvent;rid='.$self->getValue("EventsCalendar_recurringId"));
 	$var{"delete.label"} = $i18n->get(576);
 	my @others;
-	my ($start, $garbage) = $self->session->datetime->dayStartEnd($self->get("eventStartDate"));
-	my ($garbage, $end) = $self->session->datetime->dayStartEnd($self->get("eventEndDate"));
+	my ($start, $garbage, $end);
+	($start, $garbage) = $self->session->datetime->dayStartEnd($self->get("eventStartDate"));
+	($garbage, $end) = $self->session->datetime->dayStartEnd($self->get("eventEndDate"));
 	my $sth = $self->session->db->read("select assetId from EventsCalendar_event where ((eventStartDate >= $start and eventStartDate <= $end) or (eventEndDate >= $start and eventEndDate <= $end)) and assetId<>".$self->session->db->quote($self->getId));
 	while (my ($assetId) = $sth->array) {
 		my $asset = WebGUI::Asset::Event->new($self->session, $assetId);
diff --git a/lib/WebGUI/Operation/Cron.pm b/lib/WebGUI/Operation/Cron.pm
index dc93e3d80..a768446db 100644
--- a/lib/WebGUI/Operation/Cron.pm
+++ b/lib/WebGUI/Operation/Cron.pm
@@ -78,7 +78,7 @@ sub www_editCronJob {
 		label=>$i18n->get("title"),
 		hoverHelp=>$i18n->get("title help")
 		);
-	my $value = $cron->get("enabled") if defined $cron;
+	$value = $cron->get("enabled") if defined $cron;
 	$f->yesNo(
 		name=>"enabled",
 		value=>$value,
@@ -86,7 +86,7 @@ sub www_editCronJob {
 		label=>$i18n->get("is enabled"),
 		hoverHelp=>$i18n->get("is enabled help")
 		);
-	my $value = $cron->get("runOnce") if defined $cron;
+	$value = $cron->get("runOnce") if defined $cron;
 	$f->yesNo(
 		name=>"runOnce",
 		value=>$value,
@@ -94,7 +94,7 @@ sub www_editCronJob {
 		label=>$i18n->get("run once"),
 		hoverHelp=>$i18n->get("run once help")
 		);
-	my $value = $cron->get("workflowId") if defined $cron;
+	$value = $cron->get("workflowId") if defined $cron;
 	my $type = "None";
 	if (defined $cron && $cron->get("className")) {
 		$type = $cron->get("className");
@@ -109,7 +109,7 @@ sub www_editCronJob {
 	my %priorities = ();
 	tie %priorities, 'Tie::IxHash';
 	%priorities = (1=>$i18n->get("high"), 2=>$i18n->get("medium"), 3=>$i18n->get("low"));
-	my $value = $cron->get("priority") if defined $cron;
+	$value = $cron->get("priority") if defined $cron;
 	$f->radioList(
 		name=>"priority",
 		vertical=>1,
@@ -119,7 +119,7 @@ sub www_editCronJob {
 		label=>$i18n->get("priority"),
 		hoverHelp=>$i18n->get("priority help")
 		);
-	my $value = $cron->get("minuteOfHour") if defined $cron;
+	$value = $cron->get("minuteOfHour") if defined $cron;
 	$f->text(
 		name=>"minuteOfHour",
 		value=>$value,
@@ -127,7 +127,7 @@ sub www_editCronJob {
 		label=>$i18n->get("minute of hour"),
 		hoverHelp=>$i18n->get("minute of hour help")
 		);
-	my $value = $cron->get("hourOfDay") if defined $cron;
+	$value = $cron->get("hourOfDay") if defined $cron;
 	$f->text(
 		name=>"hourOfDay",
 		value=>$value,
@@ -135,7 +135,7 @@ sub www_editCronJob {
 		label=>$i18n->get("hour of day"),
 		hoverHelp=>$i18n->get("hour of day help")
 		);
-	my $value = $cron->get("dayOfMonth") if defined $cron;
+	$value = $cron->get("dayOfMonth") if defined $cron;
 	$f->text(
 		name=>"dayOfMonth",
 		value=>$value,
@@ -143,7 +143,7 @@ sub www_editCronJob {
 		label=>$i18n->get("day of month"),
 		hoverHelp=>$i18n->get("day of month help")
 		);
-	my $value = $cron->get("monthOfYear") if defined $cron;
+	$value = $cron->get("monthOfYear") if defined $cron;
 	$f->text(
 		name=>"monthOfYear",
 		value=>$value,
@@ -151,7 +151,7 @@ sub www_editCronJob {
 		label=>$i18n->get("month of year"),
 		hoverHelp=>$i18n->get("month of year help")
 		);
-	my $value = $cron->get("dayOfWeek") if defined $cron;
+	$value = $cron->get("dayOfWeek") if defined $cron;
 	$f->text(
 		name=>"dayOfWeek",
 		value=>$value,
diff --git a/lib/WebGUI/Operation/VersionTag.pm b/lib/WebGUI/Operation/VersionTag.pm
index ce3e3867f..3c1a753ac 100644
--- a/lib/WebGUI/Operation/VersionTag.pm
+++ b/lib/WebGUI/Operation/VersionTag.pm
@@ -75,7 +75,7 @@ sub www_editVersionTag {
 		-value=>$value,
 		-defaultValue=>"new"
 		);
-	my $value = $tag->get("name") if defined $tag;
+	$value = $tag->get("name") if defined $tag;
 	$f->text(
 		-name=>"name",
 		-label=>$i18n->get("version tag name"),
@@ -389,7 +389,7 @@ sub www_manageRevisionsInTag {
 			<td>'.$by.'</td></tr>';
         }
         $output .= '</table>'.$p->getBarSimple;
-	my $tag = $session->db->getRow("assetVersionTag","tagId",$tag->getId);
+	$tag = $session->db->getRow("assetVersionTag","tagId",$tag->getId);
         return $ac->render($output,$i18n->get("revisions in tag").": ".$tag->{name});
 }