Bug 30480: Check that a signed tag object contains the expected tag namebug_30480

1 files changed, 9 insertions, 0 deletions

diff --git a/lib/RBM.pm b/lib/RBM.pm
index 4416a0c..b89fee8 100644
--- a/lib/RBM.pm
+++ b/lib/RBM.pm
@@ -308,6 +308,14 @@ sub git_commit_sign_id {
     return gpg_get_fingerprint(@l);
 }
 
+sub git_get_signed_tagname {
+    foreach my $l (split(/\n/, $_[0])) {
+        return '' unless $l;
+        return $1 if $l =~ m/^tag (.*)$/;
+    }
+    return '';
+}
+
 sub git_tag_sign_id {
     my ($project, $tag) = @_;
     my $w = set_git_gpg_wrapper($project);
@@ -315,6 +323,7 @@ sub git_tag_sign_id {
         = capture_exec('git', 'tag', '-v', $tag);
     unset_git_gpg_wrapper($w);
     return undef unless $success;
+    return undef unless git_get_signed_tagname($stdout) eq $tag;
     return gpg_get_fingerprint(split /\n/, $stderr);
 }