Browse Source

Add a rule to detect misplaced labels during check-spaces

Sebastian Hahn 14 years ago
parent
commit
a64e660f0e
1 changed files with 4 additions and 0 deletions
  1. 4 0
      contrib/checkSpace.pl

+ 4 - 0
contrib/checkSpace.pl

@@ -20,6 +20,10 @@ for $fn (@ARGV) {
         if (/\t/) {
             print "      TAB:$fn:$.\n";
         }
+        ## Warn about markers that don't have a space in front of them
+        if (/^[a-zA-Z_][a-zA-Z_0-9]*:/) {
+            print "nosplabel:$fn:$.\n";
+        }
         ## Warn about trailing whitespace.
         if (/ +$/) {
             print "Space\@EOL:$fn:$.\n";