warn on nonsig space between alnums

Raku · May 16, 2015 · 1036654 · 1036654
1 parent f2f8128
commit 1036654
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/QRegex/P6Regex/Grammar.nqp b/src/QRegex/P6Regex/Grammar.nqp
@@ -220,7 +220,12 @@ grammar QRegex::P6Regex::Grammar is HLL::Grammar {
     token atom {
         # :dba('regex atom')
         [
-        | \w [ \w+! <?before \w> ]? <.SIGOK>
+        | \w
+	  [
+	  | \w+! <?before \w>
+	  | <?before ' ' \w> <!{ %*RX<s> }> <.worry("Space is not signficant here; please use quotes or :s (:sigspace) modifier (or, to suppress this warning, omit the space, or otherwise change the spacing)")>
+	  ]?
+	  <.SIGOK>
         | <metachar>
         ]
     }