test suite: lib-gdr: Break out t-gdr-prep-new-upstream

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 29d29d14c6656db6b39308a7b3bec89f85f6ca97..dbb23f39deeb6397b595b09f2b40fda814d123a5 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -198,8 +198,14 @@ sub lref () { return "refs/heads/".lbranch(); }
 sub lrref () { return "refs/remotes/$remotename/".server_branch($csuite); }
 sub rrref () { return server_ref($csuite); }
 
-sub srcfn ($$) { return &source_file_leafname($package, @_); }
-sub is_orig_file_of_vsn ($$) { return &is_orig_file_of_p_v($package, @_); }
+sub srcfn ($$) {
+    my ($vsn, $sfx) = @_;
+    return &source_file_leafname($package, $vsn, $sfx);
+}
+sub is_orig_file_of_vsn ($$) {
+    my ($f, $upstreamvsn) = @_;
+    return is_orig_file_of_p_v($f, $package, $upstreamvsn);
+}
 
 sub dscfn ($) {
     my ($vsn) = @_;
@@ -211,12 +217,6 @@ sub changespat ($;$) {
     return "${package}_".(stripepoch $vsn)."_".($arch//'*').".changes";
 }
 
-sub upstreamversion ($) {
-    my ($vsn) = @_;
-    $vsn =~ s/-[^-]+$//;
-    return $vsn;
-}
-
 our $us = 'dgit';
 initdebug('');