diff options
Diffstat (limited to 'dgit')
-rwxr-xr-x | dgit | 11 |
1 files changed, 7 insertions, 4 deletions
@@ -1693,6 +1693,11 @@ sub git_write_tree () { return $tree; } +sub git_add_write_tree () { + runcmd @git, qw(add -Af .); + return git_write_tree(); +} + sub remove_stray_gits () { my @gitscmd = qw(find -name .git -prune -print0); debugcmd "|",@gitscmd; @@ -5195,8 +5200,7 @@ sub quilt_fixup_multipatch ($$$) { rmtree '.pc'; - runcmd @git, qw(add -Af .); - my $unapplied=git_write_tree(); + my $unapplied=git_add_write_tree(); printdebug "fake orig tree object $unapplied\n"; ensuredir '.pc'; @@ -5228,8 +5232,7 @@ END changedir '../fake'; rmtree '.pc'; - runcmd @git, qw(add -Af .); - my $oldtiptree=git_write_tree(); + my $oldtiptree=git_add_write_tree(); printdebug "fake o+d/p tree object $unapplied\n"; changedir '../work'; |