From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 15 Apr 2015 17:03:45 +0000 (+0100)
Subject: Provide $component_re
X-Git-Tag: debian/0.30~234
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=96ac307f0b9d186d589d221dabfb0e403169aa08

Provide $component_re
---

diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index 268439af..c39ff72e 100644
--- a/Debian/Dgit.pm
+++ b/Debian/Dgit.pm
@@ -15,7 +15,7 @@ BEGIN {
     @ISA         = qw(Exporter);
     @EXPORT      = qw(debiantag server_branch server_ref
                       stat_exists git_for_each_ref
-                      $package_re $branchprefix);
+                      $package_re $component_re $branchprefix);
     %EXPORT_TAGS = ( policyflags => [qw(NOFFCHECK FRESHREPO)] );
     @EXPORT_OK   = @{ $EXPORT_TAGS{policyflags} };
 }
@@ -23,6 +23,7 @@ BEGIN {
 our @EXPORT_OK;
 
 our $package_re = '[0-9a-z][-+.0-9a-z]*';
+our $component_re = '[0-9a-zA-Z][-+.0-9a-zA-Z]*';
 our $branchprefix = 'dgit';
 
 # policy hook exit status bits