waitpid $pid, 0;
$pid = open2(OUT, IN, qw(git mktree));
- print IN `git ls-tree $head | grep -v $row->{name}` if $head;
+ print IN `git ls-tree $head:doc | grep -v $row->{name}` if $head;
print IN "100644 blob $blob\t$row->{name}\n";
close(IN);
chomp($tree = <OUT>);
waitpid $pid, 0;
+ $pid = open2(OUT, IN, qw(git mktree));
+ print IN "040000 tree $tree\tdoc\n";
+ close(IN);
+ chomp($tree = <OUT>);
+ waitpid $pid, 0;
+
$name = $authors{$row->{author}};
$ENV{GIT_AUTHOR_NAME} = "$name";