diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2014-10-30 00:14:46 +0000 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2014-11-08 16:11:12 +0000 |
commit | 25be7c924fe6d7cc12725f54f1f1c78e5981df6f (patch) | |
tree | 51e604039cbea47d8a508dbe02d59e9f73162fe2 /dgit | |
parent | e41608c3549b3e34839ad15b2e29607794c1ccd6 (diff) |
Break out srcfn (nfc)
Diffstat (limited to 'dgit')
-rwxr-xr-x | dgit | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -119,9 +119,14 @@ sub stripepoch ($) { return $vsn; } +sub srcfn ($$) { + my ($vsn,$sfx) = @_; + return "${package}_".(stripepoch $vsn).$sfx +} + sub dscfn ($) { my ($vsn) = @_; - return "${package}_".(stripepoch $vsn).".dsc"; + return srcfn($vsn,".dsc"); } our $us = 'dgit'; |