From ece82c50afff320eaf1cd09ba540e10f24984b60 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 27 Oct 2014 17:44:42 +0000
Subject: [PATCH] Break out commit_admin (nfc)

---
 dgit | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/dgit b/dgit
index e74445ba..9d8f9d42 100755
--- 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;
@@ -1380,9 +1386,7 @@ sub commit_quilty_patch () {
 	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 ($) {
-- 
2.30.2