Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fix thinko in dir(), bug found by dagurval++

  • Loading branch information...
commit 849f4f68644ed7acdc49d0c23ecff55e806cdbed 1 parent 570d1d6
@labster labster authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  src/core/IO.pm
View
2  src/core/IO.pm
@@ -347,7 +347,7 @@ sub dir(Cool $path = '.', Mu :$test = none('.', '..')) {
my Mu $RSA := pir::new__PS('OS').readdir(nqp::unbox_s($path.Str));
my int $elems = nqp::elems($RSA);
my @res;
- my ($directory, $volume) = IO::Spec.splitpath(~$path, :nofile);
+ my ($volume, $directory) = IO::Spec.splitpath(~$path, :nofile);
loop (my int $i = 0; $i < $elems; $i = $i + 1) {
my Str $file := nqp::p6box_s(pir::trans_encoding__Ssi(
nqp::atpos_s($RSA, $i),
Please sign in to comment.
Something went wrong with that request. Please try again.