Fix_get_modules_glr.patch

From caba7fbcc16d68d4d4343e5e430030b2e6dc288b Mon Sep 17 00:00:00 2001
From: laben <labensigma@gmail.com>
Date: Thu, 20 Aug 2015 00:36:23 +0200
Subject: [PATCH] Fix get_modules() for GLR

---
 bin/ufo | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/ufo b/bin/ufo
index 36cdbf1..0893318 100755
--- a/bin/ufo
+++ b/bin/ufo
@@ -131,11 +131,11 @@ sub get_modules() {
 
     my @module-files = find-file-by-ext(<lib lib6>, <pm pm6>);
     my @modules = @module-files.map: { Module.new(lib-pm => $_) };
-    my %modules-by-name = @modules>>.name Z @modules;
+    my %modules-by-name = @modules>>.name Z=> @modules;
     for @modules {
         # The grep is needed because 'find' prints a final newline, so there'll be an
         # empty-string element at the end of the list.
-        .dependencies.push: %modules-by-name{ dependencies(.lib-pm) }.grep: *.defined
+        .dependencies.push: %modules-by-name{ flat dependencies(.lib-pm) }.grep: *.defined
     }
     return @modules;
 }
-- 
2.5.0