Skip to content

Commit

Permalink
[io grant] Make IO::Path.resolve set CWD to $!SPEC.dir-sep
Browse files Browse the repository at this point in the history
The `self` is a bit of a nonsensical value that is still visible
to the outside via `.perl`. Setting it to .dir-sep will make it
set CWD to be the root path of the current volume.
  • Loading branch information
zoffixznet committed May 15, 2017
1 parent a282b8c commit a412788
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/core/IO/Path.pm
Expand Up @@ -329,7 +329,7 @@ my class IO::Path is Cool does IO {
}
}
$resolved = $sep unless nqp::chars($resolved);
IO::Path!new-from-absolute-path($resolved,:$!SPEC,:CWD(self));
IO::Path!new-from-absolute-path($resolved,:$!SPEC,:CWD($sep));
}

method parent(IO::Path:D:) { # XXX needs work
Expand Down

0 comments on commit a412788

Please sign in to comment.