Merge pull request #541 from tony-o/nom

fixes for CURLI until Final Solution™ is inflicted upon us
rakudo · Sep 28, 2015 · 9e8b7b4 · 9e8b7b4
2 parents 815eb48 + ae9afc5
commit 9e8b7b4
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/src/core/CompUnitRepo/Local/Installation.pm b/src/core/CompUnitRepo/Local/Installation.pm
@@ -202,11 +202,18 @@ See http://design.perl6.org/S22.html#provides for more information.\n";
                                 unless $candi<provides>{$ln}{$type}<file> ~~ /^$path/
                         }
                     }
-                    @candi.push: $candi;
+                    my $loader = $candi<provides>{$name}<pm6><file>;
+                    my $vers   = Version.new($candi<provides>{$name}{$*VM.precomp-ext}<cver>);
+                    if $*PERL<compiler>.version eqv $vers {
+                        return CompUnit.new($loader, :has_precomp($candi<provides>{$name}{$*VM.precomp-ext}<file>));
+                    } else {
+                        warn "Precomp for $name not available for {$*VM.name} version {$*PERL<compiler>.version}";
+                    }
+                    return CompUnit.new($loader);
                 }
             }
         }
-        @candi
+        ();
     }
 
     method short-id() { 'inst' }