msva (perl and ruby implementations): adopting new "peer" element name of JSON (repla...

diff --git a/msva b/msva
index c99179b7a164281b413c6e984287c1f980ad3b2c..240378b91f8ceae0e33b7519c0483b96b62c50f5 100755 (executable)
--- 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);