From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 17 May 2015 13:14:52 +0000 (+0100)
Subject: Dgit.pm: Fix next's in git_for_each_tag_referring which should be returns
X-Git-Tag: debian/0.30~149
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=b8f0c2299145e606204825a5d5081461251195c6

Dgit.pm: Fix next's in git_for_each_tag_referring which should be returns
---

diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index 49cc0733..ce7ae8dc 100644
--- a/Debian/Dgit.pm
+++ b/Debian/Dgit.pm
@@ -86,8 +86,8 @@ sub git_for_each_tag_referring ($$) {
         ($objreferring // 'UNDEF'),"\n";
     git_for_each_ref('refs/tags', sub {
 	my ($objid,$objtype,$fullrefname,$tagname) = @_;
-	next unless $objtype eq 'tag';
-	next if defined $objreferring and $objid ne $objreferring;
+	return unless $objtype eq 'tag';
+	return if defined $objreferring and $objid ne $objreferring;
 	$func->($objid,$fullrefname,$tagname);
     });
 }