oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix syntax warning with multiple my's.

Browse source
This commit is contained in:
Colin Kuskie 2009-05-19 22:13:05 +00:00
parent 39d6708e73
commit bee4437007
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Asset/Wobject/Survey/Test.pm
View file

@ -155,7 +155,8 @@ sub run {
$self->_resetResponses($rJSON); $self->_resetResponses($rJSON);
$rJSON->lastResponse(-1); $rJSON->lastResponse(-1);
my $name = $item->{name}; my $name = $item->{name};
if (my $args = $item->{test} ) { my $args;
if ($args = $item->{test} ) {
push @tap, $self->_test( { push @tap, $self->_test( {
responseJSON => $rJSON, responseJSON => $rJSON,
surveyOrder => $surveyOrder, surveyOrder => $surveyOrder,
@ -165,7 +166,7 @@ sub run {
name => $name, name => $name,
} ); } );
} }
elsif (my $args = $item->{test_mc} ) { elsif ($args = $item->{test_mc} ) {
push @tap, $self->_test_mc( { push @tap, $self->_test_mc( {
responseJSON => $rJSON, responseJSON => $rJSON,
surveyOrder => $surveyOrder, surveyOrder => $surveyOrder,
@ -175,7 +176,7 @@ sub run {
name => $name, name => $name,
} ); } );
} }
elsif (my $args = $item->{sequence} ) { elsif ($args = $item->{sequence} ) {
push @tap, $self->_sequence( { push @tap, $self->_sequence( {
responseJSON => $rJSON, responseJSON => $rJSON,
surveyOrder => $surveyOrder, surveyOrder => $surveyOrder,