sub walk_thread {
my ($th, $ctx, $cb) = @_;
- my @q = map { (0, $_) } $th->rootset;
+ my @q = map { (0, $_) } @{$th->{rootset}};
while (@q) {
my $level = shift @q;
my $node = shift @q or next;
my ($th, $ctx) = @_;
my $inbox = $ctx->{-inbox};
my $mime;
- my @q = map { (0, $_) } $th->rootset;
+ my @q = map { (0, $_) } @{$th->{rootset}};
my $level;
while (@q) {
$level = shift @q;