Front page | perl.perl6.users |
Postings from May 2020
No such method 'prefix' for invocant of type 'Capture' when tryingto patch a new library include path
From:
Konrad Bucheli via perl6-users
Date:
May 10, 2020 10:53
Subject:
No such method 'prefix' for invocant of type 'Capture' when tryingto patch a new library include path
Message ID:
VI1PR05MB5677BB5ED8C7E0BD55839C97EDA50@VI1PR05MB5677.eurprd05.prod.outlook.com
diff --git a/src/core.c/CompUnit/RepositoryRegistry.pm6 b/src/core.c/CompUnit/RepositoryRegistry.pm6
index 84250e72e..26274464e 100644
--- a/src/core.c/CompUnit/RepositoryRegistry.pm6
+++ b/src/core.c/CompUnit/RepositoryRegistry.pm6
@@ -136,6 +136,7 @@ class CompUnit::RepositoryRegistry {
my str $core = 'inst#' ~ $prefix ~ $sep ~ 'core';
my str $vendor = 'inst#' ~ $prefix ~ $sep ~ 'vendor';
my str $site = 'inst#' ~ $prefix ~ $sep ~ 'site';
+ my str $foo = 'inst#' ~ '/opt/foo/lib';
my str $home;
my str $home-spec;
@@ -182,6 +183,17 @@ class CompUnit::RepositoryRegistry {
)
) unless nqp::existskey($unique, $site);
+ # FOO specific: /opt/foo/lib
+ nqp::bindkey($custom-lib, 'foo',
+ $next-repo := self!register-repository(
+ $foo,
+ CompUnit::Repository::Installation.new(
+ :prefix('/opt/foo/lib'),
+ :$next-repo
+ )
+ )
+ ) unless nqp::existskey($unique, $foo);
+
nqp::bindkey($custom-lib,'home',
$next-repo := self!register-repository(
$home-spec,
@@ -215,6 +227,11 @@ class CompUnit::RepositoryRegistry {
my \repo := nqp::atkey($repos,$site);
nqp::bindkey($custom-lib,'site',repo) if repo;
}
+ # FOO specific: /opt/foo/lib
+ unless nqp::existskey($custom-lib, 'foo') {
+ my \repo := nqp::atkey($repos, $foo);
+ nqp::bindkey($custom-lib, 'foo', \repo) if repo;
+ }
unless nqp::existskey($custom-lib,'home') {
if $home-spec {
my \repo := nqp::atkey($repos,$home-spec);
-
No such method 'prefix' for invocant of type 'Capture' when tryingto patch a new library include path
by Konrad Bucheli via perl6-users