Merge pull request #483 from ugexe/patch-14

[bugfix] /bin wrapper requires CURLI object
rakudo · Jul 29, 2015 · 646b90f · 646b90f
2 parents 3e88cf2 + d35b76f
commit 646b90f
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/core/CompUnitRepo/Local/Installation.pm b/src/core/CompUnitRepo/Local/Installation.pm
@@ -37,7 +37,8 @@ sub MAIN(:$name, :$auth, :$ver, *@, *%) {
     shift @*ARGS if $name;
     shift @*ARGS if $auth;
     shift @*ARGS if $ver;
-    my @installations = @*INC.grep( { .starts-with("inst#") } );
+    my @installations = @*INC.grep( { .starts-with("inst#") } )\
+        .map: { CompUnitRepo::Local::Installation.new(PARSE-INCLUDE-SPEC($_).[*-1]) };
     my @binaries = @installations>>.files(\'bin/#name#\', :$name, :$auth, :$ver);
     unless +@binaries {
         @binaries = @installations>>.files(\'bin/#name#\');
@@ -64,7 +65,7 @@ sub MAIN(:$name, :$auth, :$ver, *@, *%) {
         exit 1;
     }
 
-    exit run($*EXECUTABLE_NAME, @binaries[0]<files><bin/#name#>, @*ARGS).exitcode
+    exit run($*EXECUTABLE-NAME, @binaries[0]<files><bin/#name#>, @*ARGS).exitcode
 }';
 
     method install(:$dist!, *@files) {