check-spacing: rewrite whitespace check before (semi)colon

Instead of matching multiple characters, match any occurrence
preceded by a single whitespace and handle the exceptions
later.

diff --git a/build-aux/check-spacing.pl b/build-aux/check-spacing.pl
index 83b58987b2275677f478ceabd4ad963f222c91eb..d693fbe572298eabb3f8d7b7d6ccd621e2e7e1a6 100755 (executable)
--- a/build-aux/check-spacing.pl
+++ b/build-aux/check-spacing.pl
@@ -135,10 +135,13 @@ foreach my $file (@ARGV) {
         #          errno == EINTR)
         #       ;
         #
-        if ($data =~ /[^;\s]\s+[;,]/) {
-            print "Whitespace before (semi)colon:\n";
-            print "$file:$.: $line";
-            $ret = 1;
+        if ($data =~ /\s[;,]/) {
+            unless ($data =~ /\S; ; / ||
+                    $data =~ /^\s+;/) {
+                print "Whitespace before (semi)colon:\n";
+                print "$file:$.: $line";
+                $ret = 1;
+            }
         }
 
         # Require EOL, macro line continuation, or whitespace after ";".