diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-01-24 16:34:25 +0000 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-06-16 12:25:49 +0100 |
commit | 53c494f6bfc85d83914a9e7b3703f47d3fabfb7c (patch) | |
tree | e464707a607a9c05b8a6ec41b501961e32cd3736 /git-debrebase | |
parent | 24b80ade5059ef25fd0381078e04d4eebb7eae5c (diff) |
git-debrebase: break out read_tree_subdir (nfc)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'git-debrebase')
-rwxr-xr-x | git-debrebase | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/git-debrebase b/git-debrebase index 47411ac..01595c4 100755 --- a/git-debrebase +++ b/git-debrebase @@ -257,6 +257,12 @@ sub rm_subdir_cached ($) { runcmd @git, qw(rm --quiet -rf --cached --ignore-unmatch), $subdir; } +sub read_tree_subdir ($$) { + my ($subdir, $new_tree_object) = @_; + rm_subdir_cached $subdir; + runcmd @git, qw(read-tree), "--prefix=$subdir/"; +} + # classify returns an info hash like this # CommitId => $objid # Hdr => # commit headers, including 1 final newline @@ -642,8 +648,7 @@ sub walk ($;$$) { my $read_tree_debian = sub { my ($treeish) = @_; - rm_subdir_cached qw(debian); - runcmd @git, qw(read-tree --prefix=debian/), "$treeish:debian"; + read_tree_subdir 'debian', "$treeish:debian"; }; my $read_tree_upstream = sub { my ($treeish) = @_; |