dir() now defaults to filtering out . and ..

rakudo · Jul 20, 2010 · 2783660 · 2783660
1 parent 3370f07
commit 2783660
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -255,13 +255,13 @@ multi sub note(*@args) {
     $*ERR.say(@args);
 }
 
-multi sub dir($path as Str) {
+multi sub dir($path as Str, Mu :$test = none('.', '..')) {
     Q:PIR {
         $P0 = find_lex '$path'
         $P1 = new ['OS']
         $P1 = $P1.'readdir'($P0)
         %r = '&infix:<,>'($P1 :flat)
-    }
+    }.grep($test)
 }
 
 multi sub chdir($path as Str) {