diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-07-17 14:21:42 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-07-31 21:50:00 +0100 |
commit | 2fe42d36da42a62e8082d0d1c4c35943e8281e9e (patch) | |
tree | 49a6a4d9e795aa942adf2088d650d83bdaab0c2c /Debian/Dgit.pm | |
parent | 26f2213a36af62d526a41ad96caef7f3c4aa507a (diff) |
Tag change: Declare intent in docs etc.
Provide debiantag_new as well as debiantag_old. Change the docs
and an important comment.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'Debian/Dgit.pm')
-rw-r--r-- | Debian/Dgit.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index 979dd42..fb983c1 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -19,7 +19,7 @@ BEGIN { $VERSION = 1.00; @ISA = qw(Exporter); @EXPORT = qw(setup_sigwarn - debiantag_old server_branch server_ref + debiantag_old debiantag_new server_branch server_ref stat_exists link_ltarget hashfile fail ensuredir executable_on_path @@ -131,6 +131,12 @@ sub debiantag_old ($$) { return "$distro/$v"; } +sub debiantag_new ($$) { + my ($v,$distro) = @_; + $v =~ y/~:/_%/; + return "archive/$distro/$v"; +} + sub server_branch ($) { return "$branchprefix/$_[0]"; } sub server_ref ($) { return "refs/".server_branch($_[0]); } |