Dont let stupid monkies play with object members

This commit is contained in:
Kaleb Murphy 2009-03-27 00:11:19 +00:00
parent 8a8f6aea1d
commit 774ef99cb6

View file

@ -462,8 +462,8 @@ sub recordResponses {
my ($responses) = validate_pos( @_, { type => HASHREF } );
# Build a lookup table of non-multiple choice question types
my %knownTypes = map {$_ => 1} $self->survey->specialQuestionTypes;
my %knownTypes = map {$_ => 1} @{$self->survey->specialQuestionTypes};
# We want to record responses against the "next" response section and questions, since these are
# the items that have just been displayed to the user.
my $section = $self->nextResponseSection();