Silence perl complaint in ssl test

Perl's hex() function complains if its argument contains trailing white
space (or in fact anything other than hex digits), so remove the
offending text.
This commit is contained in:
Andrew Dunstan 2021-12-05 11:50:03 -05:00
parent fadac33bb8
commit d4596a20d0
No known key found for this signature in database
GPG Key ID: 99FA7FCB59FC3B81
1 changed files with 1 additions and 0 deletions

View File

@ -504,6 +504,7 @@ if ($? == 0)
if ($Config{ivsize} == 8)
{
$serialno =~ s/^serial=//;
$serialno =~ s/\s+//g;
$serialno = hex($serialno);
}
else