From bee44370071e8b3c125c6f106ece6763c98ccf84 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 19 May 2009 22:13:05 +0000
Subject: [PATCH] Fix syntax warning with multiple my's.

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

diff --git a/lib/WebGUI/Asset/Wobject/Survey/Test.pm b/lib/WebGUI/Asset/Wobject/Survey/Test.pm
index 962140d98..ecf9c06ae 100644
--- a/lib/WebGUI/Asset/Wobject/Survey/Test.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey/Test.pm
@@ -155,7 +155,8 @@ sub run {
         $self->_resetResponses($rJSON);
         $rJSON->lastResponse(-1);
         my $name = $item->{name};
-        if (my $args = $item->{test} ) {
+        my $args;
+        if ($args = $item->{test} ) {
             push @tap, $self->_test( { 
                 responseJSON => $rJSON, 
                 surveyOrder =>  $surveyOrder,
@@ -165,7 +166,7 @@ sub run {
                 name => $name,
             } );
         } 
-        elsif (my $args = $item->{test_mc} ) {
+        elsif ($args = $item->{test_mc} ) {
             push @tap, $self->_test_mc( { 
                 responseJSON => $rJSON, 
                 surveyOrder =>  $surveyOrder,
@@ -175,7 +176,7 @@ sub run {
                 name => $name,
             } );
         } 
-        elsif (my $args = $item->{sequence} ) {
+        elsif ($args = $item->{sequence} ) {
             push @tap, $self->_sequence( { 
                 responseJSON => $rJSON, 
                 surveyOrder =>  $surveyOrder,