chiark / gitweb /
Break out mktree_in_ud_here (nfc)
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Mon, 27 Oct 2014 17:43:37 +0000 (17:43 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 5 Nov 2014 18:02:50 +0000 (18:02 +0000)
dgit

diff --git a/dgit b/dgit
index 6fd8f7d..b13b5ed 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -976,6 +976,12 @@ sub prep_ud () {
     mkdir $ud or die $!;
 }
 
+sub mktree_in_ud_here () {
+    runcmd qw(git init -q);
+    rmtree('.git/objects');
+    symlink '../../../../objects','.git/objects' or die $!;
+}
+
 sub mktree_in_ud_from_only_subdir () {
     # changes into the subdir
     my (@dirs) = <*/.>;
@@ -984,10 +990,7 @@ sub mktree_in_ud_from_only_subdir () {
     my $dir = $1;
     changedir $dir;
     fail "source package contains .git directory" if stat_exists '.git';
-    die $! unless $!==&ENOENT;
-    runcmd qw(git init -q);
-    rmtree('.git/objects');
-    symlink '../../../../objects','.git/objects' or die $!;
+    mktree_in_ud_here();
     runcmd @git, qw(add -Af);
     my $tree = cmdoutput @git, qw(write-tree);
     $tree =~ m/^\w+$/ or die "$tree ?";