aboutsummaryrefslogtreecommitdiff
path: root/tools/build/module-install.pl
diff options
context:
space:
mode:
Diffstat (limited to 'tools/build/module-install.pl')
-rw-r--r--tools/build/module-install.pl10
1 files changed, 6 insertions, 4 deletions
diff --git a/tools/build/module-install.pl b/tools/build/module-install.pl
index 2ed2589..b6be9c7 100644
--- a/tools/build/module-install.pl
+++ b/tools/build/module-install.pl
@@ -9,6 +9,8 @@ use File::Basename;
my $perl6bin = shift @ARGV;
my $perl6lib = shift @ARGV;
+my $compext = shift @ARGV;
+my $comptarget = shift @ARGV;
my @pmfiles;
my @mod_pms;
@@ -22,14 +24,14 @@ while (<>) {
find({ no_chdir=>1, wanted => \&libcopy }, $mlib);
sub libcopy {
- return unless /\.pm6?|\.pod/;
+ return unless /\.pm6?$|\.pod$/;
my $source = $File::Find::name;
my $target = $source;
$target =~ s/\Q$mlib\E/$perl6lib/;
print "$source => $target\n";
mkpath dirname($target);
copy($source, $target) or die "copy failed: $!\n";
- push @mod_pms, $target if $target =~ /\.pm6?/;
+ push @mod_pms, $target if $target =~ /\.pm6?$/;
}
my %usages_of;
@@ -76,8 +78,8 @@ do {
chdir 'rakudo';
foreach my $pm (@pmfiles) {
my $out = $pm;
- $out =~ s/\.pm6?$/.pir/;
- my @cmd = ($perl6bin, '--target=pir', "--output=$out", $pm);
+ $out =~ s/\.pm6?$/.$compext/;
+ my @cmd = ($perl6bin, "--target=$comptarget", "--output=$out", $pm);
print join(' ', @cmd), "\n";
system(@cmd);
}