fix wrappers installed/generated by CUR::Installation

A wrapper generated by CUR::Installation should only care about binaries installed by CUR::Installation. If it would pick up a binary installed by CUR::File, it would potentially try to EVAL bash scripts. Tux++
rakudo · Mar 30, 2015 · a56d8b0 · a56d8b0
1 parent 02e1e99
commit a56d8b0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/CompUnitRepo/Local/Installation.pm b/src/core/CompUnitRepo/Local/Installation.pm
@@ -34,9 +34,9 @@ __END__
 ';
     my $perl_wrapper = '#!/usr/bin/env #perl#
 sub MAIN(:$name, :$auth, :$ver, *@pos, *%named) {
-    my @binaries = CompUnitRepo.files(\'bin/#name#\', :$name, :$auth, :$ver);
+    my @binaries = CompUnitRepo::Local::Installation.files(\'bin/#name#\', :$name, :$auth, :$ver);
     unless +@binaries {
-        @binaries = CompUnitRepo.files(\'bin/#name#\');
+        @binaries = CompUnitRepo::Local::Installation.files(\'bin/#name#\');
         if +@binaries {
             note q:to/SORRY/;
                 ===SORRY!===