diff options
| -rw-r--r-- | Debian/Dgit.pm | 14 | ||||
| -rwxr-xr-x | dgit | 3 |
2 files changed, 11 insertions, 6 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index 57ae994..a3c2753 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -36,6 +36,7 @@ BEGIN { $VERSION = 1.00; @ISA = qw(Exporter); @EXPORT = qw(setup_sigwarn + dep14_version_mangle debiantags debiantag_old debiantag_new server_branch server_ref stat_exists link_ltarget @@ -144,16 +145,21 @@ sub debugcmd { printcmd(\*DEBUG,$debugprefix.$extraprefix,@_) if $debuglevel>0; } +sub dep14_version_mangle ($) { + my ($v) = @_; + # DEP-14 2014-11-05 "Version Mangling" + $v =~ y/~:/_%/; + return $v; +} + sub debiantag_old ($$) { my ($v,$distro) = @_; - $v =~ y/~:/_%/; - return "$distro/$v"; + return "$distro/". dep14_version_mangle $v; } sub debiantag_new ($$) { my ($v,$distro) = @_; - $v =~ y/~:/_%/; - return "archive/$distro/$v"; + return "archive/$distro/".dep14_version_mangle $v; } sub debiantags ($$) { @@ -171,8 +171,7 @@ sub debiantag ($$) { sub debiantag_maintview ($$) { my ($v,$distro) = @_; - $v =~ y/~:/_%/; - return "$distro/$v"; + return "$distro/".dep14_version_mangle $v; } sub madformat ($) { $_[0] eq '3.0 (quilt)' } |