Stub "use internals" for internal helper subs

rakudo · Jun 4, 2015 · ad21e90 · ad21e90
1 parent 45068ba
commit ad21e90
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
@@ -714,6 +714,10 @@ class Perl6::World is HLL::World {
             if $arglist { self.throw($/, 'X::Pragma::NoArgs', :$name) }
             %*PRAGMAS<nqp> := $on;
         }
+        elsif $name eq 'internals' {
+            if $arglist { self.throw($/, 'X::Pragma::NoArgs', :$name) }
+            %*PRAGMAS<internals> := $on;
+        }
         elsif $name eq 'soft' {
             # This is an approximation; need to pay attention to
             # argument list really.