Silence perl complaint in ssl test
authorAndrew Dunstan
Sun, 5 Dec 2021 16:50:03 +0000 (11:50 -0500)
committerAndrew Dunstan
Sun, 5 Dec 2021 16:50:03 +0000 (11:50 -0500)
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.

src/test/ssl/t/001_ssltests.pl

index 45f8d4b530885d608fcb13a606a43c0ad8c10bf4..779ab6683867c814e6e4915c254d3296b3fc277b 100644 (file)
@@ -504,6 +504,7 @@ if ($? == 0)
    if ($Config{ivsize} == 8)
    {
        $serialno =~ s/^serial=//;
+       $serialno =~ s/\s+//g;
        $serialno = hex($serialno);
    }
    else