"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "src/Perl6/World.nqp" between
rakudo-2020.09.tar.gz and rakudo-2020.10.tar.gz

About: Rakudo is a compiler for the Raku Pogramming Language (formerly known as Perl 6).

World.nqp  (rakudo-2020.09):World.nqp  (rakudo-2020.10)
skipping to change at line 1652 skipping to change at line 1652
if $create_scope eq 'our' { if $create_scope eq 'our' {
if nqp::can($cur_pkg.HOW, 'archetypes') && $cur_pkg.HOW.archetypes.p arametric { if nqp::can($cur_pkg.HOW, 'archetypes') && $cur_pkg.HOW.archetypes.p arametric {
self.throw($/, 'X::Declaration::OurScopeInRole', self.throw($/, 'X::Declaration::OurScopeInRole',
declaration => $pkgdecl, declaration => $pkgdecl,
); );
} }
} }
# If we have a multi-part name, see if we know the opening # If we have a multi-part name, see if we know the opening
# chunk already. If so, use it for that part of the name. # chunk already. If so, use it for that part of the name.
my $longname := ''; my $longname := $package =:= $*GLOBALish ?? '' !! $package.HOW.name($pac kage);
if +@parts { if +@parts {
try { try {
$cur_pkg := self.find_single_symbol(@parts[0], :upgrade_to_globa l($create_scope ne 'my')); $cur_pkg := self.find_single_symbol(@parts[0], :upgrade_to_globa l($create_scope ne 'my'));
$cur_lex := 0; $cur_lex := 0;
$create_scope := 'our'; $create_scope := 'our';
$longname := @parts.shift(); $longname := $longname ?? $longname ~ '::' ~ @parts.shift() !! @ parts.shift();
} }
} }
# Chase down the name, creating stub packages as needed. # Chase down the name, creating stub packages as needed.
while +@parts { while +@parts {
my $part := @parts.shift; my $part := @parts.shift;
$longname := $longname ?? $longname ~ '::' ~ $part !! $part; $longname := $longname ?? $longname ~ '::' ~ $part !! $part;
if nqp::existskey($cur_pkg.WHO, $part) { if nqp::existskey($cur_pkg.WHO, $part) {
$cur_pkg := ($cur_pkg.WHO){$part}; $cur_pkg := ($cur_pkg.WHO){$part};
} }
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)