From 180c59079892d3ee2c178c40992c4bd3b148e554 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Tue, 28 Aug 2012 06:26:10 -0500
Subject: Convert module-install to read modules from MODULES.txt .

---
 tools/build/module-install.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'tools/build/module-install.pl')

diff --git a/tools/build/module-install.pl b/tools/build/module-install.pl
index 8d69c78..a76bfc9 100644
--- a/tools/build/module-install.pl
+++ b/tools/build/module-install.pl
@@ -12,10 +12,10 @@ my $perl6lib = shift @ARGV;
 
 my @pmfiles;
 my @mod_pms;
-while (@ARGV) {
-    my $module = shift @ARGV;
-    print "== Installing module $module\n";
-    our $mlib  = "$module/lib";
+while (<>) {
+    my ($module) = /(\S+)/;
+    print "== Installing modules/$module\n";
+    our $mlib  = "modules/$module/lib";
     
     @mod_pms = ();
     find({ no_chdir=>1, wanted => \&libcopy }, $mlib);
-- 
cgit v1.1