Split tags: Preparation: Break out access_cfg_tagformats

No functional change.

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

1 files changed, 5 insertions, 1 deletions

diff --git a/dgit b/dgit
index 495a043..7306d7d 100755
--- 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 ];