From ae29fbf88caa40bb04fb7c8aa255b0f8a63e868d Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Tue, 21 Jul 2009 00:23:38 -0500
Subject: [PATCH] Better handle hyphens and apostrophes after certain keywords
 (RT #64656).

---
 src/parser/grammar.pg | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/parser/grammar.pg b/src/parser/grammar.pg
index 8df61601223..81c883b6c02 100644
--- a/src/parser/grammar.pg
+++ b/src/parser/grammar.pg
@@ -89,7 +89,7 @@ token unsp {
 }
 
 token unspacey { <.unsp>? }
-token nofun { <!before '(' | '.(' | '\\' > }
+token nofun { <!before '(' | '.(' | '\\' | '\'' | '-'> }
 
 token unv {
     || \h+
@@ -390,7 +390,7 @@ rule statement_mod_cond {
 }
 
 rule statement_prefix {
-    $<sym>=[do|try|gather|contend|async|lazy]
+    $<sym>=[do|try|gather|contend|async|lazy]<.nofun>
     <statement>
     {*}
 }
@@ -400,16 +400,16 @@ rule statement_prefix {
 
 rule multi_declarator {
     [
-    | $<sym>=[multi|proto|only] [ <declarator> || <routine_def> ]
+    | $<sym>=[multi|proto|only]<.nofun> [ <declarator> || <routine_def> ]
     | <declarator>
     ]
     {*}
 }
 
 token routine_declarator {
-    | $<sym>='sub'       <routine_def> {*}       #= sub
-    | $<sym>='method'    <method_def> {*}        #= method
-    | $<sym>='submethod' <method_def> {*}        #= submethod
+    | $<sym>='sub'       <.nofun> <routine_def> {*}       #= sub
+    | $<sym>='method'    <.nofun> <method_def> {*}        #= method
+    | $<sym>='submethod' <.nofun> <method_def> {*}        #= submethod
 }
 
 rule multisig {