diff options
author | Moritz Lenz <moritz@faui2k3.org> | 2014-04-01 19:40:30 +0200 |
---|---|---|
committer | Moritz Lenz <moritz@faui2k3.org> | 2014-04-01 19:40:30 +0200 |
commit | a1e13d679c5311fc5cfb9a33a577f52187b4286c (patch) | |
tree | dfaae6c5c392ccf83082b85f6d8cb3bde8f83662 /tools/build/bin-install.pl | |
parent | 6363be3b2438a93af3a19366960c69e23fe6934e (diff) | |
parent | f2236b4d8ff36dd6810ac85f24d69dd22f23933b (diff) |
Merge remote-tracking branch 'origin/tristar'
Conflicts:
tools/build/Makefile.in
tools/star/Makefile
tools/star/release-guide.pod
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"; } |