diff options
author | pmichaud <pmichaud@pobox.com> | 2010-07-28 01:23:44 -0500 |
---|---|---|
committer | pmichaud <pmichaud@pobox.com> | 2010-07-28 01:23:44 -0500 |
commit | 2eff06a529aae02f2b6b38835ad38fbf7833597c (patch) | |
tree | 79ea7a0fda91bbd73fb658bf320a933a668723b1 /build/module-install.pl | |
parent | 5d1a7bccc213b2444581345c06f756f1fa538c50 (diff) |
Refactor pieces into skel/ .
Diffstat (limited to 'build/module-install.pl')
-rw-r--r-- | build/module-install.pl | 37 |
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); -} |