From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Mon, 20 Dec 2010 05:37:26 +0000 (-0500)
Subject: avoid passing undefined data to decode_base64()
X-Git-Tag: msva-perl_debian/0.8-1~1^2~8
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=1b0caa69197fb5c9652671d0dd6b88efc20378a1;p=monkeysphere-validation-agent.git

avoid passing undefined data to decode_base64()
---

diff --git a/Crypt/Monkeysphere/MSVA.pm b/Crypt/Monkeysphere/MSVA.pm
index 1ade1ab..fc4f70c 100755
--- a/Crypt/Monkeysphere/MSVA.pm
+++ b/Crypt/Monkeysphere/MSVA.pm
@@ -183,6 +183,9 @@
 
   sub parse_rfc4716body {
     my $data = shift;
+
+    return undef
+      unless defined($data);
     $data = decode_base64($data) or return undef;
 
     msvalog('debug', "key properties: %s\n", unpack('H*', $data));