open $err, '<', $err_f or BAIL_OUT $!;
my $estr = do { local $/; <$err> };
is($estr, '', 'nothing in stderr');
my $trunc = substr($tree, 0, 39);
open $err, '<', $err_f or BAIL_OUT $!;
my $estr = do { local $/; <$err> };
is($estr, '', 'nothing in stderr');
my $trunc = substr($tree, 0, 39);