X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=dgit;h=d2f2c0fbf5e7a3b9f35980d9b08754bf5a66b636;hp=ddc2d6ca06a58afb63dbc154974ef18561275822;hb=a0ebfd60790ce326fbde74744939588ee6f1d7d7;hpb=666278d3724ee2f7b3f75272a9735c5bb4176575

diff --git a/dgit b/dgit
index ddc2d6ca..d2f2c0fb 100755
--- 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('');
 
@@ -1078,7 +1078,7 @@ sub canonicalise_suite_ftpmasterapi {
 	} qw(codename name);
 	push @matched, $entry;
     }
-    fail "unknown suite $isuite" unless @matched;
+    fail "unknown suite $isuite, maybe -d would help" unless @matched;
     my $cn;
     eval {
 	@matched==1 or die "multiple matches for suite $isuite\n";
@@ -3528,7 +3528,6 @@ sub fork_for_multisuite ($) {
             fetch_one();
 	    finish 0;
 	});
-	# xxx collecte the ref here
 
 	$csubsuite =~ s/^\Q$cbasesuite\E-/-/;
 	push @csuites, $csubsuite;