[perl #128894] File::Find::dont_use_nlink not set on CIFS mount forLinux

On Wed Aug 10 13:42:39 2016, markd.mcconnell@gmail.com wrote:
> 
> This is a bug report for perl from markd.mcconnell@gmail.com,
> generated with the help of perlbug 1.40 running under perl 5.22.1.
> 
> Reply-To: markd.mcconnell@gmail.com
> Message-Id: <5.22.1_17000_1470843428@mark-linux.DAS.local>
> Subject: File::Find::dont_use_nlink not set on CIFS mount for Linux
> From: markd.mcconnell@gmail.com
> To: perlbug@perl.org
> 
> 
> This is a bug report for perl from markd.mcconnell@gmail.com,
> generated with the help of perlbug 1.40 running under perl 5.22.1.
> 
> 
> -----------------------------------------------------------------
> [Please describe your issue here]
> 
> On Linux, a CIFS mount (mount.cifs version 6.4) of a USB harddrive
> shared from a
> Windows 7 machine, File::Find 1.29 does not automatically determine
> that the
> share lacks nlink support, and therefore 'find' fails to recurse into
> subdirectories:
> 
> $ perl -MFile::Find -Mv5.006 -e '
> 
> for ( undef,0,1) {
> my $count = 0 ;
> $File::Find::dont_use_nlink = $_ if defined($_);
> find(sub{ $count++ },"/home/markmc/mnt/Pennsylvania/Beaver/2016") ;
> print "dont_use_nlink = $File::Find::dont_use_nlink : count:
> $count\n";
>          } '
> 
> dont_use_nlink =  : count: 6
> dont_use_nlink = 0 : count: 6
> dont_use_nlink = 1 : count: 2258
> 
> ---

Since some readers may be unfamiliar with CIFS mounts, can I ask whether the following link is the relevant document for them?

https://www.samba.org/samba/docs/man/manpages-3/mount.cifs.8.html

-- 
James E Keenan (jkeenan@cpan.org)

---
via perlbug:  queue: perl5 status: new
https://rt.perl.org/Ticket/Display.html?id=128894

• [perl #128894] File::Find::dont_use_nlink not set on CIFS mount forLinux by perlbug-followup
• [perl #128894] File::Find::dont_use_nlink not set on CIFS mount forLinux by James E Keenan via RT