diff options
author | Moritz Lenz <moritz@faui2k3.org> | 2014-03-17 09:03:34 +0100 |
---|---|---|
committer | Moritz Lenz <moritz@faui2k3.org> | 2014-03-17 09:03:34 +0100 |
commit | d0da84fdc49300b8fc261eb088e3455d649c6cbe (patch) | |
tree | 86db0a7c1f933bac0e106aeeeeeb1da353e0f0fe /tools/build/bin-install.pl | |
parent | 7be70fd12493ac438f1f492255c51b00a80ef32a (diff) | |
parent | 469f8c06bf29f0543efd73a993567de66bf27efc (diff) |
Merge pull request #36 from Mouq/tristar
Some updates to tristar
Diffstat (limited to 'tools/build/bin-install.pl')
-rw-r--r-- | tools/build/bin-install.pl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tools/build/bin-install.pl b/tools/build/bin-install.pl index 1c71cea..1b47942 100644 --- a/tools/build/bin-install.pl +++ b/tools/build/bin-install.pl @@ -4,7 +4,7 @@ use strict; use warnings; use File::Spec; -my ($p6bin, $dest, @files) = @ARGV; +my ($p6bin, $dest, $post, @files) = @ARGV; die "Usage: $0 <perl6_binary> <destination_path> <source_files>" unless $p6bin && $dest; @@ -25,4 +25,12 @@ for my $filename (@files) { close $OUT or die "Error while closing file '$dest/$basename': $!"; close $IN; chmod 0755, "$dest/$basename"; + open my $ALIAS, '>', "$dest/$basename-$post" + or die "Cannot write file '$dest/$basename-$post' for installing it: $!"; + printf { $ALIAS } <<'EOA', $p6bin, $dest, $basename; +#!/bin/sh +exec %s %s/%s "$@" +EOA + close $ALIAS or die "Error while closing file '$dest/$basename-$post': $!"; + chmod 0755, "$dest/$basename-$post"; } |