This works without a module on Rakudo: use nqp; my $path = "foo".IO; my $hardlink-count = nqp::stat($path.absolute, nqp::const::STAT_PLATFORM_NLINKS);
On Mon, May 29, 2017 at 1:54 AM, Elizabeth Mattijsen <l...@dijkmat.nl> wrote: > > On 29 May 2017, at 10:42, Fernando Santagata <nando.santag...@gmail.com> > wrote: > > > > The three files are already hard-linked, no need for soft links. > > > > BTW, is there a way to detect hard links in Perl6? > > Perl5 "stat" operator returns an array whose fourth element is the > number of hard links of a file, but I don't see anything like that in the > Perl6 docs. > > Generally, unixisms are not directly supported in Perl 6 in the core. It > should be relatively trivial to create an ecosystem module for this using > NativeCall directly accessing functionality in libc (which then of course > won’t work on Windows). > > > Liz