| Subject: | traverse method contains a bug |
Tree::MultiNode 1.08
perl, v5.6.1 built for cygwin-multi
MS Windows2000
The traverse method doesn't seem to behave as expected/intended. Since the handle is pushed at the end of the argument list, the subref call in traverse always operates on the original handle rather than descending down the tree since the pushed handle in never popped.
Replacing line 1186-7:
push @args,$handle;
$subref->(@args);
with:
$subref->($handle, @args);
solves the problem.