From dc4f813a5f9ffd7f66f6bd16f7f52c26e540467c Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 29 Jun 2012 13:24:13 -0700
Subject: [PATCH] Fixes to make WebGUI compatible with newer perls.

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

diff --git a/lib/WebGUI/Asset/Wobject/Survey.pm b/lib/WebGUI/Asset/Wobject/Survey.pm
index 438f8f067..c32db7f70 100644
--- a/lib/WebGUI/Asset/Wobject/Survey.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey.pm
@@ -1399,7 +1399,7 @@ sub view {
     my $responseDetails = $self->getResponseDetails || {};
 
     # Add lastResponse template vars
-    for my $tv qw(endDate complete restart timeout timeoutRestart) {
+    for my $tv ( qw(endDate complete restart timeout timeoutRestart) ) {
         $var->{"lastResponse\u$tv"} = $responseDetails->{$tv};
     }
     $var->{lastResponseFeedback} = $responseDetails->{templateText};
@@ -2185,7 +2185,7 @@ sub takenCount {
     my $sql = 'select count(*) from Survey_response where';
     $sql .= ' assetId = ' . $self->session->db->quote($self->getId);
     $sql .= ' and isComplete = ' . $self->session->db->quote($isComplete);
-    for my $o qw(userId ipAddress) {
+    for my $o ( qw(userId ipAddress) ) {
         if (my $o_value = $opts{$o}) {
             $sql .= " and $o = " . $self->session->db->quote($o_value);
         }