[Pkg-privacy-commits] [msva-perl] 194/356: allow people to enter upper-case pkc types

[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 1f73ca4afef914b5cd4558900786e13c71e44d19
Author: Daniel Kahn Gillmor <dkg at fifthhorseman.net>
Date:   Fri Oct 29 01:13:44 2010 -0400

    allow people to enter upper-case pkc types
---
 Crypt/Monkeysphere/MSVA.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Crypt/Monkeysphere/MSVA.pm b/Crypt/Monkeysphere/MSVA.pm
index 624ff86..c90f394 100755
--- a/Crypt/Monkeysphere/MSVA.pm
+++ b/Crypt/Monkeysphere/MSVA.pm
@@ -520,9 +520,9 @@
     msvalog('verbose', "peer: %s\n", $data->{peer});
 
     my $rawdata;
-    if ($data->{pkc}->{type} eq 'x509der') {
+    if (lc($data->{pkc}->{type}) eq 'x509der') {
       $rawdata = join('', map(chr, @{$data->{pkc}->{data}}));
-    } elsif ($data->{pkc}->{type} eq 'x509pem') {
+    } elsif (lc($data->{pkc}->{type}) eq 'x509pem') {
       $rawdata = pem2der($data->{pkc}->{data});
     } else {
       $ret->{message} = sprintf("Don't know this public key carrier type: %s", $data->{pkc}->{type});

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