Crypt-MatrixSSL3
view release on metacpan or search on metacpan
MatrixSSL3.xs view on Meta::CPAN
693694695696697698699700701702703704705706707708709710711712713714
sct_array_size = (uint16) av_len(sct_array) + 1;
#ifdef MATRIX_DEBUG
warn
(
"Preparing to read %d SCT files"
, sct_array_size);
#endif
for
(i = 0; i < sct_array_size; i++) {
item_sv =
*av_fetch
(sct_array, i, 0);
item = SvPV(item_sv, item_len);
#ifdef WIN32
if
(_stat(item,
&fstat
) != 0) {
#else
if
(
stat
(item,
&fstat
) != 0) {
#endif
warn
(
"Error reading stats for SCT file %s"
, item);
return
-1;
}
#ifdef MATRIX_DEBUG
warn
(
"Reading SCT file %d - %s; size: %d"
, i, item, fstat.st_size);
#endif
sct_total_size += (size_t) fstat.st_size;
}
script/mk-ca-bundle.pl view on Meta::CPAN
311312313314315316317318319320321322323324325326327328329330
}
else
{
$fetched
= 1;
}
if
( !
$resp
||
$resp
->code !~ /^(?:200|304)$/ ) {
report
"Unable to download latest data: "
. (
$resp
?
$resp
->code .
' - '
.
$resp
->message :
"LWP failed"
);
exit
1
if
-e
$crt
|| ! -r
$txt
;
}
}
my
$filedate
=
$resp
?
$resp
->last_modified : (
stat
(
$txt
))[9];
my
$datesrc
=
"as of"
;
if
(!
$filedate
) {
# mxr.mozilla.org gave us a time, hg.mozilla.org does not!
$filedate
=
time
();
$datesrc
=
"downloaded on"
;
}
# get the hash from the download file
my
$newsha1
= sha1(
$txt
);
( run in 0.503 second using v1.01-cache-2.11-cpan-454fe037f31 )