my $first = shift @warns;
like $first || '', expect($class),
"\"no indirect\" propagated into eval in thread $tid warned once";
my $first = shift @warns;
like $first || '', expect($class),
"\"no indirect\" propagated into eval in thread $tid warned once";