sub read_tree_subdir ($$) {
my ($subdir, $new_tree_object) = @_;
rm_subdir_cached $subdir;
- runcmd @git, qw(read-tree), "--prefix=$subdir/";
+ runcmd @git, qw(read-tree), "--prefix=$subdir/", $new_tree_object;
}
# classify returns an info hash like this