blob: 1c71cea8daa6ba471e7a89dee5b326c56ee8a035 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#! 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";
}
|
