Make dir return IO::Path objects.

sorear · Jun 3, 2013 · 1bed6b7 · 1bed6b7
1 parent 95dde43
commit 1bed6b7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/CORE.setting b/lib/CORE.setting
@@ -3744,7 +3744,7 @@ sub slurp($path?) is unsafe {
 sub spurt($path,$text) is unsafe { Q:CgOp { (rnull (spurt (unbox str (@ {$path.Str})) (unbox str (@ {$text.Str})))) } }
 
 sub dir($directory = '.', Mu :$test = none('.','..')) is unsafe {
-    grep $test, Q:CgOp { (dir (obj_getstr {$directory})) };
+    Q:CgOp { (dir (obj_getstr {$directory})) }.grep($test).map(*.path);
 }
 
 my class Instant {