summaryrefslogtreecommitdiff
path: root/dgit
diff options
context:
space:
mode:
authorIan Jackson <ijackson@chiark.greenend.org.uk>2014-11-09 23:27:13 +0000
committerIan Jackson <ijackson@chiark.greenend.org.uk>2014-11-09 23:27:13 +0000
commit346892585656da58a8d913cf9f808872a3096823 (patch)
tree4e3e4278b7f0fb628998354991c00d691c3c36c3 /dgit
parent3b8d3ae177321d340de16b1dced5c9d262e56f72 (diff)
Break out git_write_tree (nfc)
Diffstat (limited to 'dgit')
-rwxr-xr-xdgit9
1 files changed, 7 insertions, 2 deletions
diff --git a/dgit b/dgit
index 87a0380..5c8d24a 100755
--- a/dgit
+++ b/dgit
@@ -1047,6 +1047,12 @@ sub mktree_in_ud_here () {
symlink '../../../../objects','.git/objects' or die $!;
}
+sub git_write_tree () {
+ my $tree = cmdoutput @git, qw(write-tree);
+ $tree =~ m/^\w+$/ or die "$tree ?";
+ return $tree;
+}
+
sub mktree_in_ud_from_only_subdir () {
# changes into the subdir
my (@dirs) = <*/.>;
@@ -1061,8 +1067,7 @@ sub mktree_in_ud_from_only_subdir () {
rmtree '.pc';
}
runcmd @git, qw(add -Af);
- my $tree = cmdoutput @git, qw(write-tree);
- $tree =~ m/^\w+$/ or die "$tree ?";
+ my $tree=git_write_tree();
return ($tree,$dir);
}