check-format.pl: Fix false positive "no SPC before binary '*'" for '!*'

Reviewed-by: Paul Dale <pauli@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/15077)

diff --git a/util/check-format.pl b/util/check-format.pl
index 5c637f9333bb7c6fd4256d79a63a7fa16d3f76a2..734022c5403aeb81d8d29c30282b0793721c375a 100755 (executable)
--- a/util/check-format.pl
+++ b/util/check-format.pl
@@ -683,7 +683,7 @@ while (<>) { # loop over all lines of all input files
         # TODO ternary ':' without preceding SPC, while allowing no SPC before ':' after 'case'
         report("no SPC before binary '$1'")  if $intra_line =~ m/[^\s{()\[]([+\-])/;# +/- without preceding space or {()[
                                                                              # or ')' (which is used f type casts)
-        report("no SPC before binary '$1'")  if $intra_line =~ m/[^\s{()\[*]([*])/; # '*' without preceding space or {()[*
+        report("no SPC before binary '$1'")  if $intra_line =~ m/[^\s{()\[*!]([*])/; # '*' without preceding space or {()[*!
         report("no SPC before binary '$1'")  if $intra_line =~ m/[^\s{()\[]([&])/;  # '&' without preceding space or {()[
         report("no SPC after ternary '$1'") if $intra_line =~ m/(:)[^\s\d]/; # ':' without following space or digit
         report("no SPC after '$1'")   if $intra_line =~ m/([,;=|\/%<>^\?])\S/; # ,;=|/%<>^? without following space