[perl #132675] IO::Path.dir may be using the wrong CWD

[via RT]

# New Ticket Created by  dakkar 
# Please include the string:  [perl #132675]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=132675 >


IO::Path.dir uses the global $*CWD to construct the objects it
returns; it should probably use the invocant's $!CWD instead.

This test currently fails:

  use v6.c;
  use Test;

  mkdir('/tmp/one/two');

  for IO::Path.new('one',:CWD</tmp/>).dir -> $d {
    ok $d ~~ :e, "{$d.perl} should exist";
  }

  done-testing;

while this passes:

  for IO::Path.new('/tmp/one/two').dir -> $d {
    ok $d ~~ :e, "{$d.perl} should exist";
  }

I think they should both pass.

-- 
        Dakkar - <Mobilis in mobile>
        GPG public key fingerprint = A071 E618 DD2C 5901 9574
                                     6FE2 40EA 9883 7519 3F88
                            key id = 0x75193F88