From 25be7c924fe6d7cc12725f54f1f1c78e5981df6f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 30 Oct 2014 00:14:46 +0000
Subject: Break out srcfn (nfc)

---
 dgit | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'dgit')

diff --git a/dgit b/dgit
index d00ab1f..97bc187 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';
-- 
cgit v1.2.3