From 946cf6e0260726ecb228606d5d28f3c885109068 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 21 May 2009 15:09:15 +0000
Subject: [PATCH] Fix syntax warnings in Survey/Test.pm

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

diff --git a/lib/WebGUI/Asset/Wobject/Survey/Test.pm b/lib/WebGUI/Asset/Wobject/Survey/Test.pm
index eeba78ccb..c6061478a 100644
--- a/lib/WebGUI/Asset/Wobject/Survey/Test.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey/Test.pm
@@ -159,7 +159,8 @@ sub run {
         # N.B. we pass setup to individual test rather than running it for test, because 
         # some test subs reset rJSON between sub-tests
         
-        if (my $args = $item->{test} ) {
+        my $args;
+        if ($args = $item->{test} ) {
             push @tap, $self->_test( { 
                 responseJSON => $rJSON, 
                 surveyOrder =>  $surveyOrder,
@@ -170,7 +171,7 @@ sub run {
                 setup => $setup,
             } );
         } 
-        elsif (my $args = $item->{test_mc} ) {
+        elsif ($args = $item->{test_mc} ) {
             push @tap, $self->_test_mc( { 
                 responseJSON => $rJSON, 
                 surveyOrder =>  $surveyOrder,
@@ -181,7 +182,7 @@ sub run {
                 setup => $setup,
             } );
         } 
-        elsif (my $args = $item->{sequence} ) {
+        elsif ($args = $item->{sequence} ) {
             push @tap, $self->_sequence( { 
                 responseJSON => $rJSON, 
                 surveyOrder =>  $surveyOrder,
@@ -191,7 +192,7 @@ sub run {
                 name => $name,
             } );
         } 
-        elsif (my $args = $item->{defined} ) {
+        elsif ($args = $item->{defined} ) {
             push @tap, $self->_defined( { 
                 responseJSON => $rJSON, 
                 surveyOrder =>  $surveyOrder,