Split brain: Fake .dsc contains d/control and d/changelog too

[dgit.git] / dgit

diff --git a/dgit b/dgit
index b5082c96360439d98f6d9cae560f9db0d2954fc3..299c531214cc5a50efd193bc29de9b7d7fea820f 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -2532,8 +2532,8 @@ sub quiltify_tree_sentinelfiles ($) {
     return $r;
 }
 
-sub quiltify ($$) {
-    my ($clogp,$target) = @_;
+sub quiltify ($$$) {
+    my ($clogp,$target,$origtree) = @_;
 
     # Quilt patchification algorithm
     #
@@ -2919,7 +2919,8 @@ END
 
     quilt_fixup_linkorigs($upstreamversion, $dscaddfile);
 
-    my @files=qw(debian/source/format debian/rules);
+    my @files=qw(debian/source/format debian/rules
+                 debian/control debian/changelog);
     foreach my $maybe (qw(debian/patches debian/source/options)) {
         next unless stat_exists "../../../$maybe";
         push @files, $maybe;
@@ -2943,6 +2944,8 @@ END
 
     changedir '..';
 
+    my $origtree='';
+
     quilt_fixup_mkwork($headref);
 
     my $mustdeletepc=0;
@@ -2954,7 +2957,7 @@ END
         rename '../fake/.pc','.pc' or die $!;
     }
 
-    quiltify($clogp,$headref);
+    quiltify($clogp,$headref,$origtree);
 
     if (!open P, '>>', ".pc/applied-patches") {
        $!==&ENOENT or die $!;