thooge
/
tinyca
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix OpenSSL version detection

This commit is contained in:
thooge 2020-11-08 12:30:16 +01:00 committed by GitHub
parent 77959d700d
commit 1a0a269ea9
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/OpenSSL.pm
View File

@ -42,8 +42,12 @@ sub new {
close(TEST);
# set version (format: e.g. 0.9.7 or 0.9.7a)
if($v =~ /\b(0\.9\.[6-9][a-z]?)\b/ || $v =~ /\b(1\.0\.[01][a-z]?)\b/) {
if($v =~ /\b(0\.\d\.\d[a-z]?)\b/) {
$self->{'version'} = $1;
} else {
chomp $v;
print STDERR "Can't get OpenSSL version from '$v'\n";
$self->{'version'} = '*unknown*';
}
# CRL output was broken before openssl 0.9.7f
@ -1062,6 +1066,11 @@ sub read_index {
return(@index);
}
sub get_version {
my $self = shift;
return($self->{'version'});
}
sub _set_expired {
my ($serial, $index) =@_;