From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Fri, 15 Jan 2010 04:04:12 +0000 (-0500)
Subject: msva (perl and ruby implementations): adopting new "peer" element name of JSON (repla... 
X-Git-Tag: msva-perl/0.1~18^2
X-Git-Url: http://git.tremily.us/gitweb.cgi?a=commitdiff_plain;h=ceb03b6fdc3132c59e8043c8954cfee14004fc71;p=monkeysphere-validation-agent.git

msva (perl and ruby implementations): adopting new "peer" element name of JSON (replaces "uid" element name)
---

diff --git a/msva b/msva
index c99179b..240378b 100755
--- a/msva
+++ b/msva
@@ -174,7 +174,7 @@ $rsa_decoder->prepare(q<
     my $data  = shift;
     return if !ref $data;
 
-    my $uid = $data->{context}.'://'.$data->{uid};
+    my $uid = $data->{context}.'://'.$data->{peer};
 
     my $rawdata = join('', map(chr, @{$data->{pkc}->{data}}));
     my $cert = Crypt::X509->new(cert => $rawdata);