diff options
author | pmichaud <pmichaud@pobox.com> | 2012-01-27 14:18:07 -0600 |
---|---|---|
committer | pmichaud <pmichaud@pobox.com> | 2012-01-27 14:18:07 -0600 |
commit | 4abcc075356072726c16b1ba1659061bf303f996 (patch) | |
tree | 6be3eb1091efbde80b4c0bc0b8b94811bc3d4a15 /skel/build/module-install.pl | |
parent | b5588c2c0f511effe3197794217308c55c7a1491 (diff) |
Move module-install script into tools/build (where the rest of the build things go nowadays).
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); -} |