Silence perl complaint in ssl test

adunstan · adunstan · commit d4596a20d046 · 2021-12-05T11:50:03.000-05:00
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.
diff --git a/src/test/ssl/t/001_ssltests.pl b/src/test/ssl/t/001_ssltests.pl
@@ -504,6 +504,7 @@
 	if ($Config{ivsize} == 8)
 	{
 		$serialno =~ s/^serial=//;
+		$serialno =~ s/\s+//g;
 		$serialno = hex($serialno);
 	}
 	else

Original file line number	Diff line number	Diff line change
`@@ -504,6 +504,7 @@`
`504`	`504`	`if ($Config{ivsize} == 8)`
`505`	`505`	`{`
`506`	`506`	`$serialno =~ s/^serial=//;`
	`507`	`+ $serialno =~ s/\s+//g;`
`507`	`508`	`$serialno = hex($serialno);`
`508`	`509`	`}`
`509`	`510`	`else`