Dgit.pm: break out git_check_unmodified from dgit

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 573f39ad07f7251adbc1fdfa41429e8c7232ac40..17e4fadb360affeaa85a2988692750c90180c778 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -3692,15 +3692,7 @@ sub check_not_dirty () {
 
     return if $ignoredirty;
 
-    my @cmd = (@git, qw(diff --quiet HEAD));
-    debugcmd "+",@cmd;
-    $!=0; $?=-1; system @cmd;
-    return if !$?;
-    if ($?==256) {
-       fail "working tree is dirty (does not match HEAD)";
-    } else {
-       failedcmd @cmd;
-    }
+    git_check_unmodified();
 }
 
 sub commit_admin ($) {