Split tags: Preparation: Break out access_cfg_tagformats

No functional change.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/dgit b/dgit
index 495a043e7e30f454b74fd4fac9d9e07e3831e852..7306d7d1214abfa0fa8216c21387fd962e164260 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -1134,13 +1134,17 @@ sub archive_query_dummycat ($$) {
 
 #---------- tag format handling ----------
 
+sub access_cfg_tagformats () {
+    split /\,/, access_cfg('dgit-tag-format');
+}
+
 sub select_tagformat () {
     # sets $tagformatfn
     return if $tagformatfn && !$tagformat_want;
     die 'bug' if $tagformatfn && $tagformat_want;
     # ... $tagformat_want assigned after previous select_tagformat
 
-    my (@supported) = split /\,/, access_cfg('dgit-tag-format');
+    my (@supported) = access_cfg_tagformats();
     printdebug "select_tagformat supported @supported\n";
 
     $tagformat_want //= [ $supported[0], "distro access configuration", 0 ];