X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=dgit;h=6dbf166cb72cc7ba698571f1e0c3e799a0c82456;hb=cc236eb448eb278d367271964b96a81cb7d286db;hp=8df8f761baf9347ce341102b0fd5229aaf4fb03d;hpb=86b1bd2035ce1da863c682223893b59ed74962f9;p=dgit.git

diff --git a/dgit b/dgit
index 8df8f761..6dbf166c 100755
--- a/dgit
+++ b/dgit
@@ -3825,6 +3825,17 @@ sub check_not_dirty () {
 	}
     }
 
+    my @cmd = (@git, qw(status -uall --ignored --porcelain));
+    push @cmd, qw(debian/source/format debian/source/options);
+    push @cmd, @forbid;
+
+    my $bad = cmdoutput @cmd;
+    if (length $bad) {
+	fail +(__
+ "you have uncommitted changes to critical files, cannot continue:\n").
+              $bad;
+    }
+
     return if $includedirty;
 
     git_check_unmodified();