From ceb03b6fdc3132c59e8043c8954cfee14004fc71 Mon Sep 17 00:00:00 2001
From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Thu, 14 Jan 2010 23:04:12 -0500
Subject: [PATCH] msva (perl and ruby implementations): adopting new "peer"
 element name of JSON (replaces "uid" element name)

---
 msva | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
2.26.2