make dir() default to the current directory

rakudo · Sep 8, 2010 · 780732f · 780732f
1 parent ea77ccd
commit 780732f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -259,7 +259,7 @@ multi sub note(*@args) {
     $*ERR.say(@args);
 }
 
-multi sub dir($path as Str, Mu :$test = none('.', '..')) {
+multi sub dir($path as Str = '.', Mu :$test = none('.', '..')) {
     Q:PIR {
         $P0 = find_lex '$path'
         $P1 = new ['OS']