diff options
Diffstat (limited to 'skel/tools/build/bin-install.pl')
-rw-r--r-- | skel/tools/build/bin-install.pl | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/skel/tools/build/bin-install.pl b/skel/tools/build/bin-install.pl deleted file mode 100644 index 1c71cea..0000000 --- a/skel/tools/build/bin-install.pl +++ /dev/null @@ -1,28 +0,0 @@ -#! perl - -use strict; -use warnings; -use File::Spec; - -my ($p6bin, $dest, @files) = @ARGV; -die "Usage: $0 <perl6_binary> <destination_path> <source_files>" - unless $p6bin && $dest; - -for my $filename (@files) { - open my $IN, '<', $filename - or die "Cannot read file '$filename' for installing it: $!"; - my $basename = (File::Spec->splitpath($filename))[2]; - open my $OUT, '>', "$dest/$basename" - or die "Cannot write file '$dest/$basename' for installing it: $!"; - while (<$IN>) { - if ($. == 1 && /^#!/) { - print { $OUT } "#!$p6bin\n"; - } - else { - print { $OUT } $_; - } - } - close $OUT or die "Error while closing file '$dest/$basename': $!"; - close $IN; - chmod 0755, "$dest/$basename"; -} |