Infra: dgit-repos-server: Fix some typos in debug messages

[dgit.git] / infra / dgit-repos-server

diff --git a/infra/dgit-repos-server b/infra/dgit-repos-server
index 4cc96c49cbbd5c585272eb0503fbf97a3178e294..f5dd5aa8bfdd564d328d464602cee6887fc9efe2 100755 (executable)
--- a/infra/dgit-repos-server
+++ b/infra/dgit-repos-server
@@ -321,7 +321,7 @@ sub movetogarbage () {
 
     ensuredir "$dgitrepos/_removed-tags";
     open PREVIOUS, ">>", removedtagsfile or die removedtagsfile." $!";
-    git_for_each_ref(debiantag('*'), sub {
+    git_for_each_ref('refs/tags/'.debiantag('*'), sub {
        my ($objid,$objtype,$fullrefname,$reftail) = @_;
        print PREVIOUS "\n$objid $reftail .\n" or die $!;
     }, $real);
@@ -738,7 +738,7 @@ sub checktagnoreplay () {
                my ($tagobjid,$refobjid,$fullrefname,$tagname) = @_;
                $check_ref_superseded->($tagobjid,undef,$fullrefname,undef);
             });
-           printdebug "checktagnoreply - not FRESHREPO, nchecked=$nchecked";
+           printdebug "checktagnoreplay - not FRESHREPO, nchecked=$nchecked";
            push @problems, "does not supersede any tag".
                " referring to branch head $branch=$branchhead"
                unless $nchecked;
@@ -751,7 +751,7 @@ sub checktagnoreplay () {
            join("; ", @problems).
            "\n";
     }
-    printdebug "checktagnoreply - all ok\n"
+    printdebug "checktagnoreplay - all ok ($tagval)\n"
 }
 
 sub tagh1 ($) {