develooper 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);



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About