summaryrefslogtreecommitdiff
path: root/Debian
diff options
context:
space:
mode:
authorIan Jackson <ijackson@chiark.greenend.org.uk>2016-07-17 15:13:01 +0100
committerIan Jackson <ijackson@chiark.greenend.org.uk>2016-07-31 21:50:00 +0100
commit509af629e19c6c9d973d9fc8cd1739bd8de2d9d9 (patch)
tree16e2449a32da707f9ed9fea5bbee27935c42fb6c /Debian
parent79efde94a4372533a4cc1d1a48634eecdeef41e1 (diff)
Tag change: Provide debiantags in Dgit.pm
No callers yet. Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'Debian')
-rw-r--r--Debian/Dgit.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index 863d1ad..bfa76cc 100644
--- a/Debian/Dgit.pm
+++ b/Debian/Dgit.pm
@@ -19,7 +19,8 @@ BEGIN {
$VERSION = 1.00;
@ISA = qw(Exporter);
@EXPORT = qw(setup_sigwarn
- debiantag_old debiantag_new server_branch server_ref
+ debiantags debiantag_old debiantag_new
+ server_branch server_ref
stat_exists link_ltarget
hashfile
fail ensuredir executable_on_path
@@ -137,6 +138,11 @@ sub debiantag_new ($$) {
return "archive/$distro/$v";
}
+sub debiantags ($$) {
+ my ($version,$distro) = @_;
+ map { $_->($version, $distro) } (\&debiantag_new, \&debiantag_old);
+}
+
sub server_branch ($) { return "$branchprefix/$_[0]"; }
sub server_ref ($) { return "refs/".server_branch($_[0]); }