Break out commit_admin (nfc)

diff --git a/dgit b/dgit
index e74445ba23ea07e545e8fc1336a443af698ddf69..9d8f9d428e4f6752fe247ecc2133f91b0b47e9b0 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -1366,6 +1366,12 @@ sub check_not_dirty () {
     }
 }
 
     }
 }
 

+sub commit_admin ($) {
+    my ($m) = @_;
+    progress "$m";
+    runcmd_ordryrun_local @git, qw(commit -m), $m;
+}
+

 sub commit_quilty_patch () {
     my $output = cmdoutput @git, qw(status --porcelain);
     my %adds;
 sub commit_quilty_patch () {
     my $output = cmdoutput @git, qw(status --porcelain);
     my %adds;


@@ -1380,9 +1386,7 @@ sub commit_quilty_patch () {
        return;
     }
     runcmd_ordryrun_local @git, qw(add), sort keys %adds;
        return;
     }
     runcmd_ordryrun_local @git, qw(add), sort keys %adds;

-    my $m = "Commit Debian 3.0 (quilt) metadata";
-    progress "$m";
-    runcmd_ordryrun_local @git, qw(commit -m), $m;
+    commit_admin "Commit Debian 3.0 (quilt) metadata";

 }
 
 sub madformat ($) {
 }
 
 sub madformat ($) {