diff options
Diffstat (limited to 'skel/build/module-install.pl')
-rw-r--r-- | skel/build/module-install.pl | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/skel/build/module-install.pl b/skel/build/module-install.pl deleted file mode 100644 index 63a9412..0000000 --- a/skel/build/module-install.pl +++ /dev/null @@ -1,38 +0,0 @@ -#! perl - -use warnings; -use strict; -use File::Find; -use File::Copy; -use File::Path; -use File::Basename; - -my $perl6bin = shift @ARGV; -my $perl6lib = shift @ARGV; - -my @pmfiles; -while (@ARGV) { - my $module = shift @ARGV; - our $mlib = "$module/lib"; - - find({ no_chdir=>1, wanted => \&libcopy }, $mlib); - - sub libcopy { - return unless /\.pm6?/; - 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 @pmfiles, $target; - } -} - -chdir 'rakudo'; -foreach my $pm (@pmfiles) { - my $out = $pm; $out =~ s/\.pm6?$/.pir/; - my @cmd = ($perl6bin, '--target=pir', "--output=$out", $pm); - print join(' ', @cmd), "\n"; - system(@cmd); -} |