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


Create a directory containing a couple of files:

mkdir -p some/path/stuff
echo test > some/path/only-a-test.txt

Then try to list the files:

[roam@straylight:pts/22 ~/lang/perl]$ perl6 -e 'use v6.c; chdir "some"; 
"path".IO.dir.perl.say'                        
("path/stuff".IO(:SPEC(IO::Spec::Unix),:CWD("/home/roam/lang/perl/some")), 
"path/only-a-test.txt".IO(:SPEC(IO::Spec::Unix),:CWD("/home/roam/lang/perl/some"))).Seq

[roam@straylight:pts/22 ~/lang/perl]$ perl6 -e 'use v6.c; chdir "some/"; 
"path".IO.dir.perl.say'
("ath/stuff".IO(:SPEC(IO::Spec::Unix),:CWD("/home/roam/lang/perl/some/")), 
"ath/only-a-test.txt".IO(:SPEC(IO::Spec::Unix),:CWD("/home/roam/lang/perl/some/"))).Seq

Note the "ath/" prefix in the second case.

Confirmed by perlpilot on IRC.

G'luck,
Peter

-- 
Peter Pentchev  [email protected] [email protected] [email protected]
PGP key:        http://people.FreeBSD.org/~roam/roam.key.asc
Key fingerprint 2EE7 A7A5 17FC 124C F115  C354 651E EFB0 2527 DF13

Attachment: signature.asc
Description: PGP signature

Reply via email to