From qd1qupwe.hs2@20minutemail.com

# perldoc File​::Find

"follow"
Causes symbolic links to be followed.
...
There is a variable $File​::Find​::fullname which holds the
absolute pathname of the file with all symbolic links resolved.
...
"follow_skip==2" causes File​::Find to ignore any duplicate files and
directories but to proceed normally otherwise.

I got next result​:

# create files
$ mkdir -p a/b b; touch a/b/X; ln -s ../a/b/X b/

# test.pl
use File​::Find;
find( {
  wanted => sub{ /X$/o && print $File​::Find​::fullname,"\n"},
  follow => 1,
  follow_skip => 2
}, '.');

# result​:
$ perl test.pl
/tmp/test_box2/a/b/X
/tmp/test_box2/b/X # <-- got symlink in result

Is that wrong behavior for follow => 1 and follow_skip => 2 options ?

What's going on?

sub Follow_SymLink($) {
..
  while (-l _) { # <-- 1. true
...
  $NewName= PathCombine($AbsName, readlink($AbsName)); # <-- 2. $NewName keep true filename
...
  if ($full_check && defined $DEV && $SLnkSeen{$DEV, $INO}++) { # 3. <-- [!] TRUE for $SLnkSeen{$DEV, $INO}
  if ( ($follow_skip < 1) || ((-d _) && ($follow_skip < 2)) ) {
  die "$AbsName encountered a second time";
  }
  else {
  return undef; # <-- 4. our exit point
  }
  }
...
}

sub _find_dir_symlnk($$$) {
...
  # follow symbolic links / do an lstat
  $new_loc = Follow_SymLink($loc_pref.$FN); # <-- 1. we got undef for symlink

  # ignore if invalid symlink
  unless (defined $new_loc) {
  if (!defined -l _ && $dangling_symlinks) { # <-- 2. false
  ...
  }
  else {
  $fullname = $loc_pref . $FN; # <-- 3. so, full filename point to symlink, not content
  }
  $name = $dir_pref . $FN;
  $_ = ($no_chdir ? $name : $FN);
  { $wanted_callback->() }; # <-- 4. callback got symlink in result
  next;
  }
...
}

From @tonycoz

On Sun Jan 25 03​:57​:02 2015, qd1qupwe.hs2@​20minutemail.com wrote​:

# perldoc File​::Find

"follow"
Causes symbolic links to be followed.
...
There is a variable $File​::Find​::fullname which holds the
absolute pathname of the file with all symbolic links resolved.
...
"follow_skip==2" causes File​::Find to ignore any duplicate files and
directories but to proceed normally otherwise.

I got next result​:

# create files
$ mkdir -p a/b b; touch a/b/X; ln -s ../a/b/X b/

# test.pl
use File​::Find;
find( {
wanted => sub{ /X$/o && print $File​::Find​::fullname,"\n"},
follow => 1,
follow_skip => 2
}, '.');

# result​:
$ perl test.pl
/tmp/test_box2/a/b/X
/tmp/test_box2/b/X # <-- got symlink in result

Is that wrong behavior for follow => 1 and follow_skip => 2 options ?

What's going on?

sub Follow_SymLink($) {
..
while (-l _) { # <-- 1. true
...
$NewName= PathCombine($AbsName, readlink($AbsName)); # <-- 2.
$NewName keep true filename
...
if ($full_check && defined $DEV && $SLnkSeen{$DEV, $INO}++) { # 3.
<-- [!] TRUE for $SLnkSeen{$DEV, $INO}
if ( ($follow_skip < 1) || ((-d _) && ($follow_skip < 2)) ) {
die "$AbsName encountered a second time";
}
else {
return undef; # <-- 4. our exit point
}
}
...
}

sub _find_dir_symlnk($$$) {
...
# follow symbolic links / do an lstat
$new_loc = Follow_SymLink($loc_pref.$FN); # <-- 1. we got undef for
symlink

# ignore if invalid symlink
unless (defined $new_loc) {
if (!defined -l _ && $dangling_symlinks) { # <-- 2. false
...
}
else {
$fullname = $loc_pref . $FN; # <-- 3. so, full filename point to
symlink, not content
}
$name = $dir_pref . $FN;
$_ = ($no_chdir ? $name : $FN);
{ $wanted_callback->() }; # <-- 4. callback got symlink in result
next;
}
...
}

This appears to have changed in​:

commit 1da2e9e
Author​: Victor Efimov <victor@​vsespb.ru>
Date​: Tue Nov 19 01​:18​:26 2013 +0100

  Check symlink status before setting File​::Find​::fullname to undef.
 
  Problem reported by James Avera in RT #120388. Patches supplied by Victor
  Efimov, then adapted to new testing functions in ext/File-Find/t/find.t.

Tony

The RT System itself - Status changed from 'new' to 'open'