summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Find.pm
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/File/Find.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/File/Find.pm24
1 files changed, 10 insertions, 14 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Find.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Find.pm
index 4c67e882a5..5f5f1468e7 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Find.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Find.pm
@@ -3,7 +3,7 @@ use 5.006;
use strict;
use warnings;
use warnings::register;
-our $VERSION = '1.37';
+our $VERSION = '1.39';
require Exporter;
require Cwd;
@@ -161,9 +161,8 @@ sub _find_opt {
$pre_process = $wanted->{preprocess};
$post_process = $wanted->{postprocess};
$no_chdir = $wanted->{no_chdir};
- $full_check = $Is_Win32 ? 0 : $wanted->{follow};
- $follow = $Is_Win32 ? 0 :
- $full_check || $wanted->{follow_fast};
+ $full_check = $wanted->{follow};
+ $follow = $full_check || $wanted->{follow_fast};
$follow_skip = $wanted->{follow_skip};
$untaint = $wanted->{untaint};
$untaint_pat = $wanted->{untaint_pattern};
@@ -840,6 +839,9 @@ where C<find()> works from the top of the tree down.
=back
+Despite the name of the C<finddepth()> function, both C<find()> and
+C<finddepth()> perform a depth-first search of the directory hierarchy.
+
=head2 %options
The first argument to C<find()> is either a code reference to your
@@ -849,7 +851,7 @@ code reference is described in L</The wanted function> below.
Here are the possible keys for the hash:
-=over 3
+=over 4
=item C<wanted>
@@ -893,7 +895,7 @@ This might be expensive both in space and time for a large
directory tree. See L</follow_fast> and L</follow_skip> below.
If either I<follow> or I<follow_fast> is in effect:
-=over 6
+=over 4
=item *
@@ -1080,9 +1082,9 @@ situations. You can disable these warnings by putting the statement
in the appropriate scope. See L<warnings> for more info about lexical
warnings.
-=head1 CAVEAT
+=head1 BUGS AND CAVEATS
-=over 2
+=over 4
=item $dont_use_nlink
@@ -1108,12 +1110,6 @@ in an unknown directory.
=back
-=head1 BUGS AND CAVEATS
-
-Despite the name of the C<finddepth()> function, both C<find()> and
-C<finddepth()> perform a depth-first search of the directory
-hierarchy.
-
=head1 HISTORY
File::Find used to produce incorrect results if called recursively.