X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=dgit;h=97bc187bfca9ab1e236ede6555d4a15c40659a19;hp=d00ab1f04fc7d61b69f10d03cf0dbf1f18628771;hb=25be7c924fe6d7cc12725f54f1f1c78e5981df6f;hpb=e41608c3549b3e34839ad15b2e29607794c1ccd6

diff --git a/dgit b/dgit
index d00ab1f0..97bc187b 100755
--- a/dgit
+++ b/dgit
@@ -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';