($^O =~ /\A(?:linux)\z/) or
skip "lsof /(deleted)/ check untested on $^O", 1;
my @lsof = xqx([$lsof, '-p', $td->{pid}], undef, $noerr);
($^O =~ /\A(?:linux)\z/) or
skip "lsof /(deleted)/ check untested on $^O", 1;
my @lsof = xqx([$lsof, '-p', $td->{pid}], undef, $noerr);