Split brain: Capture patches-unapplied tree object

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 5910c778f2f7d0798150cd2ac89aaa15171ccbfe..97bd283170e833209d36f2e0bbd3546cf0bea17a 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -2940,18 +2940,23 @@ END
 
     changedir 'fake';
 
-    ensuredir '.pc';
-
     remove_stray_gits();
     mktree_in_ud_here();
 
+    rmtree '.pc';
+
+    runcmd @git, qw(add -Af .);
+    my $origtree=git_write_tree();
+
+    printdebug "fake orig tree object $origtree\n";
+
+    ensuredir '.pc';
+
     runcmd qw(sh -ec),
         'exec dpkg-source --before-build . >/dev/null';
 
     changedir '..';
 
-    my $origtree='';
-
     quilt_fixup_mkwork($headref);
 
     my $mustdeletepc=0;