dir primitives exclude anything starting with "."

rakudo · Nov 4, 2014 · f7c7b06 · f7c7b06
1 parent 8edbf14
commit f7c7b06
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -324,7 +324,7 @@ sub MAKE-DIR-LIST(Str $abspath, Mu $test) {
                 last;
             }
             take nqp::box_s(nqp::concat($abspath_s,$elem_s),Str)
-              if nqp::isne_s($elem_s,'.') && nqp::isne_s($elem_s,'..');
+              if nqp::ordfirst($elem_s) != 46;  # fast /^\/.
         } }
     }
 }
@@ -361,7 +361,8 @@ sub MAKE-DIR-LIST(Str $abspath, Mu $test) {
                     nqp::closedir($dirh);
                     last;
                 }
-                take nqp::box_s($elem_s,Str);
+                my $elem = nqp::box_s($elem_s,Str);
+                take $elem if MAKE-BASENAME($elem).ord != 46;  # fast /^\./
             }
         }
     }
@@ -394,7 +395,7 @@ sub MAKE-DIR-LIST(Str $abspath, Mu $test) {
               nqp::atpos_s($RSA, $i),
               pir::find_encoding__Is('utf8'));
             take nqp::box_s(nqp::concat($abspath_s,$elem_s),Str)
-              if nqp::isne_s($elem_s,'.') && nqp::isne_s($elem_s,'..');
+              if nqp::ordfirst($elem_s) != 46;  # fast /^\/.
         }
     }
 }