0001-Fix-bug-s-in-unique-dir-feature.patch

From e978a1e6a0c7377e68452b5165b8ce0214dbcce3 Mon Sep 17 00:00:00 2001
From: Arne <arnsholt@gmail.com>
Date: Sat, 3 Jul 2010 18:39:48 +0200
Subject: [PATCH] Fix bug(s) in unique-dir feature.

---
 ufo |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ufo b/ufo
index 0db8817..04315e9 100755
--- a/ufo
+++ b/ufo
@@ -140,7 +140,7 @@ test: all
 \tenv PERL6LIB=\$(PERL6LIB) prove -e '\$(PERL6)' -r --nocolor t/]);
 
 sub directory-of($file) {
-    $file.subst(/ '/' <-[/]>*? $ /, '');
+    $file.subst(/ <-[/]>* $ /, '');
 }
 
 sub prefix($prefix, $str) {
@@ -157,7 +157,7 @@ sub write-install($extension?) {
     # prefix of.
     my $prev = '';
     for %dirs.keys.sort -> $cur {
-        $makefile.say: "\tmkdir -p ~/.perl6/$cur" if not prefix($prev, $cur);
+        $makefile.say: "\tmkdir -p ~/.perl6/$prev" if not prefix($prev, $cur);
         $prev = $cur;
     }
     $makefile.say: "\tmkdir -p ~/.perl6/$prev";
-- 
1.7.1