aboutsummaryrefslogtreecommitdiff
path: root/build/module-install.pl
diff options
context:
space:
mode:
authorpmichaud <pmichaud@pobox.com>2010-07-28 01:23:44 -0500
committerpmichaud <pmichaud@pobox.com>2010-07-28 01:23:44 -0500
commit2eff06a529aae02f2b6b38835ad38fbf7833597c (patch)
tree79ea7a0fda91bbd73fb658bf320a933a668723b1 /build/module-install.pl
parent5d1a7bccc213b2444581345c06f756f1fa538c50 (diff)
Refactor pieces into skel/ .
Diffstat (limited to 'build/module-install.pl')
-rw-r--r--build/module-install.pl37
1 files changed, 0 insertions, 37 deletions
diff --git a/build/module-install.pl b/build/module-install.pl
deleted file mode 100644
index cba32df..0000000
--- a/build/module-install.pl
+++ /dev/null
@@ -1,37 +0,0 @@
-#! perl
-
-use warnings;
-use strict;
-use File::Find;
-use File::Copy;
-use File::Path;
-use File::Basename;
-
-my $perl6 = 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/$mlib/$perl6lib/;
- print "$source => $target\n";
- mkpath dirname($target);
- copy($source, $target) or die "copy failed: $!\n";
- push @pmfiles, $target;
- }
-}
-
-foreach my $pm (@pmfiles) {
- my $out = $pm; $out =~ s/\.pm6?$/.pir/;
- my @cmd = ('./perl6', '--target=pir', "--output=$out", $pm);
- print join(' ', @cmd), "\n";
- system(@cmd);
-}