Disallow $^A..Z as perl S06:1968

rakudo · Aug 21, 2013 · 8e617d5 · 8e617d5
1 parent a24bf6f
commit 8e617d5
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -5489,6 +5489,11 @@ class Perl6::Actions is HLL::Actions does STDActions {
                 placeholder => $full_name,
             );
         }
+
+        # don't allow $^A..Z as placeholders, as per spec
+        elsif nqp::chars($full_name) == 3 && nqp::substr($full_name,2,1) ~~ /^<[A..Z]>$/ {
+            $*W.throw($/, ['X', 'Syntax', 'Perl5Var'], name => $full_name );
+        }
 
         # Obtain/create placeholder parameter list.
         my @params := $block<placeholder_sig> || ($block<placeholder_sig> := []);