Commit afdd7e30 authored by Leigh B Stoller's avatar Leigh B Stoller

Minor debugging change.

parent 343ee139
......@@ -49,6 +49,7 @@ use XML::Simple;
use XML::LibXML;
use Data::Dumper;
use File::Temp qw(tempfile);
use Carp qw(cluck);
use overload ('""' => 'Stringify');
# Configure variables
......@@ -450,7 +451,7 @@ sub LoadFromString($$)
close(CHILD);
waitpid($childpid, 0);
if ($? || !@certlines) {
print STDERR "openssl x509 failed to parse certificate\n";
cluck("openssl x509 failed to parse certificate\n$string\n");
return undef;
}
my $certificate = GeniCertificate->LoadFromArray($string, @certlines);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment