aboutsummaryrefslogtreecommitdiff
path: root/tools/build/bin-install.pl
diff options
context:
space:
mode:
authorMoritz Lenz <moritz@faui2k3.org>2014-04-01 19:40:30 +0200
committerMoritz Lenz <moritz@faui2k3.org>2014-04-01 19:40:30 +0200
commita1e13d679c5311fc5cfb9a33a577f52187b4286c (patch)
treedfaae6c5c392ccf83082b85f6d8cb3bde8f83662 /tools/build/bin-install.pl
parent6363be3b2438a93af3a19366960c69e23fe6934e (diff)
parentf2236b4d8ff36dd6810ac85f24d69dd22f23933b (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.pl10
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";
}