%#
<%once>
use utf8;
+ use POSIX qw(_exit);
sub filter ($$$@) {
my ($what, $m, $content, @cmd) = @_;
open my $hl, "|-", @cmd or die "open $what: $!";
syswrite $hl, $content // die "$what write: $!";
close $hl or die "$what kid: $!, $?";
- exit 0;
+ _exit 0;
} else {
while (sysread $fh, my $buf, 8192) { $m->print($buf); }
close $fh and waitpid $kid, 0