| Subject: | Only scans first file in file list on Windows |
On Windows, the if-exists condition near line 353 results in all but the first file being skipped. This is due to @statresult having a value of 0 for the inode slot on WIndows.
The simplest approach is to skip the check on Windows, or alternately not assign to %filename2inode on Windows. An example of the first option is below.
Regards,
Shawn.
if (0 < $#statresult) {
my $inode = $statresult[1]; # inode
if ($^O ne 'MSWin32' && exists $filename2inode{$inode}) {
$file = undef;
next; # avoid hard and symbolic links
}
$filename2inode{$inode} = undef; # inode
}