From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Mon, 18 Oct 2010 13:41:25 +0000 (-0400)
Subject: fix some broken syntax
X-Git-Tag: msva-perl_debian/0.6-1~3^2~20
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=5b147a90a7b48880744fe9ea8e8bb6691adc1a89;p=monkeysphere-validation-agent.git

fix some broken syntax
---

diff --git a/Crypt/Monkeysphere/MSVA/Client.pm b/Crypt/Monkeysphere/MSVA/Client.pm
index 751f5f5..d657a98 100644
--- a/Crypt/Monkeysphere/MSVA/Client.pm
+++ b/Crypt/Monkeysphere/MSVA/Client.pm
@@ -29,6 +29,7 @@
   use Crypt::Monkeysphere::MSVA::Logger;
   use LWP::UserAgent;
   use HTTP::Request;
+  use Module::Load::Conditional;
 
   sub log {
     my $self = shift;
@@ -86,8 +87,9 @@
     $self->log('debug', "pkctype: %s\n", $pkctype);
 
     if ($pkctype eq 'x509der') {
-      if $self->{logger}->is_logging_at('verbose') {
+      if ($self->{logger}->is_logging_at('verbose')) {
         if (Module::Load::Conditional::can_load('modules' => { 'Crypt::X509' => undef })) {
+          require Crypt::X509;
           my $cert = Crypt::X509->new(cert => $pkcdata);
           if ($cert->error) {
             $self->log('error', "failed to parse this X.509 cert before sending it to the agent\n");