Fixes: ab9c03ff4aa3 "www: use PerlIO::scalar (zfh) for buffering"
my ($ctx, $eml) = @_;
my ($beg, $end) = thread_adj_level($ctx, $ctx->{level});
print { $ctx->zfh } $beg, '<pre>';
my ($ctx, $eml) = @_;
my ($beg, $end) = thread_adj_level($ctx, $ctx->{level});
print { $ctx->zfh } $beg, '<pre>';
- print { $ctx->{zfh} } eml_entry($ctx, $eml), '</pre>', $end;
+ print { $ctx->{zfh} } eml_entry($ctx, $eml), '</pre>';
+ $end;
}
sub next_in_queue ($$) {
}
sub next_in_queue ($$) {