[Pkg-privacy-commits] [msva-perl] 02/15: avoid trying to print an error message when no message is forthcoming

[Ximin Luo]

This is an automated email from the git hooks/post-receive script.

infinity0 pushed a commit to annotated tag msva-perl_debian/0.8.1-2
in repository msva-perl.

commit 1b0edc1876511a93c8fb94629e42a4b879d6b2f5
Author: Daniel Kahn Gillmor <dkg at fifthhorseman.net>
Date:   Tue Feb 7 21:54:11 2012 -0500

    avoid trying to print an error message when no message is forthcoming
---
 gpgkeys_hkpms | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gpgkeys_hkpms b/gpgkeys_hkpms
index 75ce01b..c1569c5 100755
--- a/gpgkeys_hkpms
+++ b/gpgkeys_hkpms
@@ -117,7 +117,9 @@ use warnings;
       if (JSON::is_bool($ret->{valid}) && ($ret->{valid} eq 1)) {
         $self->{logger}->log('verbose', "Monkeysphere HKPMS Certificate validation succeeded:\n  %s\n", $ret->{message});
       } else {
-        $self->{logger}->log('error', "Monkeysphere HKPMS Certificate validation failed:\n  %s\n", $ret->{message});
+        my $m = '[undefined]';
+        $m = $ret->{message} if (defined($ret->{message}));
+        $self->{logger}->log('error', "Monkeysphere HKPMS Certificate validation failed:\n  %s\n", $m);
       }
     }
 

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