From 4abcc075356072726c16b1ba1659061bf303f996 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Fri, 27 Jan 2012 14:18:07 -0600
Subject: Move module-install script into tools/build (where the rest of the
 build things go nowadays).

---
 skel/build/module-install.pl       | 38 --------------------------------------
 skel/tools/build/module-install.pl | 38 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 38 insertions(+), 38 deletions(-)
 delete mode 100644 skel/build/module-install.pl
 create mode 100644 skel/tools/build/module-install.pl

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);
-}
diff --git a/skel/tools/build/module-install.pl b/skel/tools/build/module-install.pl
new file mode 100644
index 0000000..63a9412
--- /dev/null
+++ b/skel/tools/build/module-install.pl
@@ -0,0 +1,38 @@
+#! 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);
+}
-- 
cgit v1.1