RakuAST: check for MONKEY-TYPING when augmenting

rakudo · Oct 29, 2023 · c727c2a · c727c2a
1 parent bd53ad2
commit c727c2a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Raku/Actions.nqp b/src/Raku/Actions.nqp
@@ -1941,6 +1941,9 @@ class Raku::Actions is HLL::Actions does Raku::CommonActions {
         my $name := $name-match ?? $name-match.ast !! Nodify('Name');
         my $package;
         if $scope eq 'augment' {
+            $/.typed-panic('X::Syntax::Augment::WithoutMonkeyTyping')
+              unless $*LANG.pragma('MONKEY-TYPING');
+
             $package := Nodify('Package','Augmented').new(
               :$declarator, :$how, :$name, :$scope
             );