[Pkg-privacy-commits] [msva-perl] 283/356: check that key data is not empty, and return error otherwise.

[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 bdafada8f59700c32e90504241752bcfb164ff77
Author: Jameson Rollins <jrollins at finestructure.net>
Date:   Fri Dec 31 01:29:26 2010 -0500

    check that key data is not empty, and return error otherwise.
---
 Crypt/Monkeysphere/MSVA.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/Crypt/Monkeysphere/MSVA.pm b/Crypt/Monkeysphere/MSVA.pm
index 74c5b17..f2bb7b1 100755
--- a/Crypt/Monkeysphere/MSVA.pm
+++ b/Crypt/Monkeysphere/MSVA.pm
@@ -649,6 +649,12 @@
                  message => 'Unknown failure',
                };
 
+    # check that there actually is key data
+    if ($data->{pkc}->{data} eq '') {
+      $ret->{message} = sprintf("Key data empty.");
+      return $status,$ret;
+    }
+
     # check context string
     if ($data->{context} =~ /^(https|ssh|smtp|ike|postgresql|imaps|imap|submission|e-mail)$/) {
 	$data->{context} = $1;

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