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