version 1.141.2.1, 2005/04/19 21:13:24
|
version 1.141.2.3, 2005/04/21 17:35:58
|
Line 142 sub get_sequence_assessment_data {
|
Line 142 sub get_sequence_assessment_data {
|
# |
# |
my $previous_too; |
my $previous_too; |
my $previous; |
my $previous; |
while (scalar(@Nested_Sequences)) { |
while (1) { |
$previous_too = $previous; |
$previous_too = $previous; |
$previous = $curRes; |
$previous = $curRes; |
$curRes = $iterator->next(1); |
$curRes = $iterator->next(); |
|
if (!$curRes) { last; } |
my $currentmap = $Nested_Sequences[-1]; # Last one on the stack |
my $currentmap = $Nested_Sequences[-1]; # Last one on the stack |
if ($curRes == $iterator->BEGIN_MAP()) { |
if ($curRes == $iterator->BEGIN_MAP()) { |
if (! ref($previous)) { |
if (! ref($previous)) { |