Permalink
Browse files

Make dir return IO::Path objects.

  • Loading branch information...
1 parent 95dde43 commit 1bed6b7a8a7e965e9d3db16b07ac6ee4bd476719 @colomon colomon committed Jun 3, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/CORE.setting
View
@@ -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 {

0 comments on commit 1bed6b7

Please sign in to comment.