[Pkg-privacy-commits] [msva-perl] 282/356: get rid of confusing $primarymatch label, and fix matching based on fingerprints

[Ximin Luo]

This is an automated email from the git hooks/post-receive script.

infinity0 pushed a commit to branch debian
in repository msva-perl.

commit 54313980a53b5bfa8b94681fb1a81994002c13ab
Author: Daniel Kahn Gillmor <dkg at fifthhorseman.net>
Date:   Thu Dec 30 17:50:26 2010 -0500

    get rid of confusing $primarymatch label, and fix matching based on fingerprints
---
 Crypt/Monkeysphere/MSVA.pm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/Crypt/Monkeysphere/MSVA.pm b/Crypt/Monkeysphere/MSVA.pm
index 0133ff4..74c5b17 100755
--- a/Crypt/Monkeysphere/MSVA.pm
+++ b/Crypt/Monkeysphere/MSVA.pm
@@ -773,13 +773,8 @@
 	}
 	# treat primary keys just like subkeys:
 	foreach my $subkey ($gpgkey, @{$gpgkey->subkeys}) {
-	  my $primarymatch;
-	  if (defined $key) {
-	    $primarymatch = keycomp($key, $subkey);
-	  } else {
-	    $primarymatch = 1;
-	  }
-	  if ($primarymatch) {
+          if ((defined($key) && keycomp($key, $subkey)) ||
+              (defined($fpr) && ($subkey->fingerprint->as_hex_string eq $fpr))) {
 	    my $iscapable = 0;
 	    msvalog('verbose', "key 0x%s matches...\n",$subkey->hex_id);
 	    if ($data->{context} eq 'e-mail') {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-privacy/packages/msva-perl.git