Delegate to next-repo if we find no candiate for a module

rakudo · Oct 24, 2015 · 278913e · 278913e
1 parent 9e8ffaa
commit 278913e
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/src/core/CompUnit/DependencySpecification.pm b/src/core/CompUnit/DependencySpecification.pm
@@ -3,6 +3,10 @@ class CompUnit::DependencySpecification {
     has $.version-matcher = True;
     has $.auth-matcher = True;
     has $.api-matcher = True;
+
+    method Str(CompUnit::DependencySpecification:D:) {
+        return "{$.short-name}:ver<{$.version-matcher}>:auth<{$.auth-matcher}>:api<{$.api-matcher}>";
+    }
 }
 
 # vim: ft=perl6 expandtab sw=4
diff --git a/src/core/CompUnitRepo/Locally.pm b/src/core/CompUnitRepo/Locally.pm
@@ -36,10 +36,15 @@ role CompUnitRepo::Locally {
         CompUnit::PrecompilationRepository $precomp = self.precomp-repository())
         returns CompUnit:D
     {
-        self.candidates($spec.short-name, :auth($spec.auth-matcher), :ver($spec.version-matcher))[0];
+        my @candidates = self.candidates($spec.short-name, :auth($spec.auth-matcher), :ver($spec.version-matcher));
+        return @candidates[0] if @candidates;
+        return self.next-repo.need($spec, $precomp) if self.next-repo;
+        nqp::die("Could not find $spec in $.Str");
     }
 
     method loaded() returns Iterable {
         return ();
     }
 }
+
+# vim: ft=perl6 expandtab sw=4