disallow parsing of adverb form in quotes that we can't handle yet

rakudo · Jul 23, 2010 · 4195e9a · 4195e9a
1 parent 34046de
commit 4195e9a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -2657,6 +2657,9 @@ method quote:sym<s>($/) {
         $regex, $closure
     );
     for $<quotepair> {
+        if $_.ast<key> ne 'g' {
+            $/.CURSOR.panic("Substitution adverbs other than ':g' are not yet implemented");
+        }
         $past.push(PAST::Val.new(:named(~$_.ast<key>), :value($_.ast<value>)));
     }
     make $past;

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1393,7 +1393,7 @@ token quotepair {
     | <identifier> 
         { $*key := ~$<identifier> }
         [
-        || <?before '('> <circumfix> { $*value := $<circumfix>.ast; }
+        || <?before '('> <circumfix> <.panic('Arguments to adverbs on quotes are not yet implemented')>
         || { $*value := 1; }
         ]
     ]