Various housecleaning bits
A. Sinan Unur
10 years ago
10 | 10 |
certs/ca-bundle.crt
|
11 | 11 |
certs/notacacert.pem
|
12 | 12 |
certs/notacakeynopass.pem
|
|
13 |
inc/IO/Interactive/Tiny.pm
|
13 | 14 |
lib/Crypt/SSLeay/CTX.pm
|
14 | 15 |
lib/Crypt/SSLeay/Conn.pm
|
15 | 16 |
lib/Crypt/SSLeay/Err.pm
|
0 | 0 |
blib\/
|
1 | 1 |
\B.svn\b
|
2 | 2 |
\B.git\b
|
|
3 |
\.DS_Store
|
3 | 4 |
pm_to_blib
|
4 | 5 |
README.old
|
5 | 6 |
crypt_ssleay_version.h
|
1 | 1 |
use strict;
|
2 | 2 |
use warnings;
|
3 | 3 |
|
4 | |
use Devel::CheckLib;
|
5 | 4 |
use ExtUtils::CBuilder;
|
6 | 5 |
use ExtUtils::MakeMaker;
|
7 | 6 |
use Getopt::Long qw( GetOptionsFromArray );
|
8 | |
use IO::Interactive::Tiny;
|
9 | 7 |
use Path::Class;
|
10 | 8 |
use Try::Tiny;
|
|
9 |
|
|
10 |
use inc::IO::Interactive::Tiny;
|
11 | 11 |
|
12 | 12 |
caller
|
13 | 13 |
or run(\@ARGV, [qw{ssl crypto ssl32 ssleay32 eay32 libeay32 z}]);
|
|
67 | 67 |
# Address RT #78848 and RT #88269
|
68 | 68 |
|
69 | 69 |
for my $arg (qw(incpath libpath)) {
|
|
70 |
next unless exists $opt{$arg};
|
70 | 71 |
my $path = $opt{$arg};
|
71 | 72 |
|
72 | 73 |
try {
|
|
108 | 109 |
|
109 | 110 |
my %params = (
|
110 | 111 |
META_MERGE => {
|
|
112 |
keywords => [ qw(lwp lwp-useragent openssl https) ],
|
|
113 |
no_index => {
|
|
114 |
directory => [ 'inc' ],
|
|
115 |
},
|
|
116 |
build => {
|
|
117 |
recommends => {
|
|
118 |
'Devel::CheckLib' => '0.99',
|
|
119 |
},
|
|
120 |
},
|
111 | 121 |
resources => {
|
112 | 122 |
repository => 'https://github.com/nanis/Crypt-SSLeay',
|
113 | 123 |
},
|
|
136 | 146 |
},
|
137 | 147 |
|
138 | 148 |
CONFIGURE_REQUIRES => {
|
139 | |
'Devel::CheckLib' => '0.99',
|
140 | 149 |
'ExtUtils::CBuilder' => '0.280205',
|
141 | 150 |
'Getopt::Long' => 0,
|
142 | |
'IO::Interactive::Tiny' => 0,
|
143 | 151 |
'Path::Class' => '0.26',
|
144 | 152 |
'Try::Tiny' => '0.19',
|
145 | 153 |
},
|
|
273 | 281 |
sub filter_libs {
|
274 | 282 |
my $opt = shift;
|
275 | 283 |
my $libs = shift;
|
|
284 |
|
|
285 |
try {
|
|
286 |
require Devel::CheckLib;
|
|
287 |
Devel::CheckLib->import;
|
|
288 |
}
|
|
289 |
catch {
|
|
290 |
return $libs;
|
|
291 |
};
|
|
292 |
|
276 | 293 |
my @found;
|
277 | 294 |
|
278 | 295 |
for my $lib (@$libs) {
|
87 | 87 |
|
88 | 88 |
# see https://cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-2014-0160
|
89 | 89 |
sub is_openssl_vulnerable_to_heartbleed {
|
90 | |
my %vulnerable = map $_ => undef, qw(
|
|
90 |
my %vulnerable = map { $_ => undef } qw(
|
91 | 91 |
0x1000100f
|
92 | 92 |
0x1000101f
|
93 | 93 |
0x1000102f
|