-
-
Notifications
You must be signed in to change notification settings - Fork 372
Commit
if the RAKUDO_MODULE_DEBUG=1 environment variable is set
- Loading branch information
There are no files selected for viewing
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -1499,6 +1499,16 @@ class Perl6::World is HLL::World { | |
self.add_object_if_no_sc($spec); | ||
my $registry := self.find_symbol(['CompUnit', 'RepositoryRegistry'], :setting-only); | ||
my $comp_unit := $registry.head.need($spec); | ||
if $RMD { | ||
This comment has been minimized.
Sorry, something went wrong.
This comment has been minimized.
Sorry, something went wrong.
ugexe
Member
|
||
my $name := $comp_unit.short-name; | ||
my $auth := $comp_unit.auth; | ||
$auth := $auth ?? ":auth<$auth>" !! ''; | ||
my $version := $comp_unit.version; | ||
$version := $version ?? ':ver<' ~ $version.Str ~ '>' !! ''; | ||
This comment has been minimized.
Sorry, something went wrong.
ugexe
Member
|
||
my $api := $comp_unit.api; | ||
$api := $api ?? ':api<' ~ $api.Str ~ '>' !! ''; | ||
$RMD("Loaded $name$auth$version$api"); | ||
} | ||
my $globalish := $comp_unit.handle.globalish-package; | ||
nqp::gethllsym('Raku','ModuleLoader').merge_globals_lexically(self, $cur_GLOBALish, $globalish); | ||
|
||
|
Seems like this could just use
$comp_unit.distribution.Str
to build this instead. Further,.distribution.Str
uses the order$name$version$auth$api
(while the order doesn't technically matter we should try to keep it consistent in the core and if we did change the order it should probably be$name$auth$api$version
).