RakuAST: fix registration of packages with multi-part names

We accidentally added packages with their longname (e.g. Foo::Bar) into the parent package's stash instead of only the last part.
rakudo · Oct 30, 2022 · e92e3c5 · e92e3c5
1 parent 7e53692
commit e92e3c5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Raku/ast/package.rakumod b/src/Raku/ast/package.rakumod
@@ -120,7 +120,7 @@ class RakuAST::Package is RakuAST::StubbyMeta is RakuAST::Term
                     my $package := Perl6::Metamodel::PackageHOW.new_type(name => $longname);
                     $package.HOW.compose($package);
                     my %stash := $resolver.IMPL-STASH-HASH($target);
-                    %stash{$longname} := $package;
+                    %stash{$_.name} := $package;
                     $target := $package;
                 }
             }
@@ -143,7 +143,7 @@ class RakuAST::Package is RakuAST::StubbyMeta is RakuAST::Term
                     my $package := Perl6::Metamodel::PackageHOW.new_type(name => $longname);
                     $package.HOW.compose($package);
                     my %stash := $resolver.IMPL-STASH-HASH($target);
-                    %stash{$longname} := $package;
+                    %stash{$_.name} := $package;
                     $target := $package;
                 }
             }