checksrc: verify space after semicolons

lib/checksrc.pl

@@ -61,6 +61,7 @@ my %warnings = (
     'ASSIGNWITHINCONDITION'  => 'assignment within conditional expression',
     'EQUALSNOSPACE'    => 'equals sign without following space',
     'NOSPACEEQUALS'    => 'equals sign without preceeding space',
+    'SEMINOSPACE'      => 'semicolon without following space',
     );
 
 sub readwhitelist {
@@ -555,6 +556,13 @@ sub scanfile {
                       "no space before plus sign");
         }
 
+        # check for semicolons without space next to it
+        if($nostr =~ /(.*)\;[a-z0-9]/i) {
+            checkwarn("SEMINOSPACE",
+                      $line, length($1)+1, $file, $ol,
+                      "no space after semilcolon");
+        }
+
         $line++;
         $prevl = $ol;
     }