From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 22 Jan 2018 17:09:50 +0000 (+0000)
Subject: Dgit.pm, dgit: Break $extra_orig_namepart_re out into Dgit.pm.
X-Git-Tag: archive/debian/5.0~397
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=942637ea633f1c9dc0be2534a660296a76b87e27

Dgit.pm, dgit: Break $extra_orig_namepart_re out into Dgit.pm.

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

diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index d086cbe5..a4ec3774 100644
--- a/Debian/Dgit.pm
+++ b/Debian/Dgit.pm
@@ -53,6 +53,7 @@ BEGIN {
                       git_for_each_tag_referring is_fast_fwd
                       $package_re $component_re $deliberately_re
 		      $distro_re $versiontag_re $series_filename_re
+		      $extra_orig_namepart_re
                       $branchprefix
                       initdebug enabledebug enabledebuglevel
                       printdebug debugcmd
@@ -80,6 +81,7 @@ our $distro_re = $component_re;
 our $versiontag_re = qr{[-+.\%_0-9a-zA-Z/]+};
 our $branchprefix = 'dgit';
 our $series_filename_re = qr{(?:^|\.)series(?!\n)$}s;
+our $extra_orig_namepart_re = qr{[-0-9a-z]+};
 
 # policy hook exit status bits
 # see dgit-repos-server head comment for documentation
diff --git a/debian/changelog b/debian/changelog
index 8d830f03..e4134540 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -5,7 +5,7 @@ dgit (4.5~) unstable; urgency=medium
 
   Internal changes:
   * Move $playground global to dgit.
-  * Break git_get_symref out into Dgit.pm.
+  * Break git_get_symref and $extra_orig_namepart_re out into Dgit.pm.
 
  --
 
diff --git a/dgit b/dgit
index aaafefb7..573f39ad 100755
--- a/dgit
+++ b/dgit
@@ -95,7 +95,7 @@ our %format_ok = map { $_=>1 } ("1.0","3.0 (native)","3.0 (quilt)");
 
 our $suite_re = '[-+.0-9a-z]+';
 our $cleanmode_re = 'dpkg-source(?:-d)?|git|git-ff|check|none';
-our $orig_f_comp_re = 'orig(?:-[-0-9a-z]+)?';
+our $orig_f_comp_re = qr{orig(?:-$extra_orig_namepart_re)?};
 our $orig_f_sig_re = '\\.(?:asc|gpg|pgp)';
 our $orig_f_tail_re = "$orig_f_comp_re\\.tar(?:\\.\\w+)?(?:$orig_f_sig_re)?";