don't say TTIAR unless next thing looks like term

rakudo · May 19, 2015 · 03bf80f · 03bf80f
1 parent 97b4db0
commit 03bf80f
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
@@ -3433,9 +3433,13 @@ class Perl6::World is HLL::World {
                         elsif $c.MARKED('baresigil') {
                             %opts<reason> := "Name must begin with alphabetic character";
                         }
-                        else {
+                        elsif @locprepost[1] ~~ / ^ \s* <[ $ @ \w ' " ]> / ||
+                              @locprepost[1] ~~ / ^ \s+ <[ ( [ { « . ]> / {
                             %opts<reason> := "Two terms in a row";
                         }
+                        elsif @locprepost[1] ~~ / ^ \S / {
+                            %opts<reason> := "Bogus postfix";
+                        }
                     }
                 }
             }