aboutsummaryrefslogtreecommitdiff
path: root/tools/build/bin-install.pl
diff options
context:
space:
mode:
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";
}