t/httpd-unix.t | 1 + diff --git a/t/httpd-unix.t b/t/httpd-unix.t index c45ff1633f0f68ef148985b330342772d94752d2..414ca0c8b979c5c9b5b12d084f71e508bef5e48a 100644 --- a/t/httpd-unix.t +++ b/t/httpd-unix.t @@ -136,6 +136,7 @@ ok(-s $pid_file, "$w pid file written"); my $pid = $read_pid->($pid_file); is(kill('TERM', $pid), 1, "signaled daemonized $w process"); vec(my $rvec = '', fileno($p0), 1) = 1; + delete $td->{-extra}; # drop tail(1) process is(select($rvec, undef, undef, 1), 1, 'timeout for pipe HUP'); is(my $undef = <$p0>, undef, 'process closed pipe writer at exit'); ok(!-e $pid_file, "$w pid file unlinked at exit");