diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2014-11-09 23:27:13 +0000 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2014-11-09 23:27:13 +0000 |
commit | 346892585656da58a8d913cf9f808872a3096823 (patch) | |
tree | 4e3e4278b7f0fb628998354991c00d691c3c36c3 /dgit | |
parent | 3b8d3ae177321d340de16b1dced5c9d262e56f72 (diff) |
Break out git_write_tree (nfc)
Diffstat (limited to 'dgit')
-rwxr-xr-x | dgit | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -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); } |