diff options
| author | ammon@rhythm.com <ammon@rhythm.com> | 2006-09-19 13:56:32 -0700 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-09-21 02:17:30 +0000 |
| commit | fab43c1bb262944cb8f1d820af87e47b89cd3e12 (patch) | |
| tree | 38d4b8719cf944f72559a7f16ea5ea52d91246f1 /lib/File/Find.pm | |
| parent | 853d2c326bb0bf43f54320164d14d9db228c8eef (diff) | |
| download | perl-fab43c1bb262944cb8f1d820af87e47b89cd3e12.tar.gz | |
[perl #40369] File::Find mishandles non-dangling symlinks
From: ammon@rhythm.com (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.5.HEAD-31258-1158724592-1714.40369-75-0@perl.org>
p4raw-id: //depot/perl@28876
Diffstat (limited to 'lib/File/Find.pm')
| -rw-r--r-- | lib/File/Find.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Find.pm b/lib/File/Find.pm index 213b4c0168..864c20780b 100644 --- a/lib/File/Find.pm +++ b/lib/File/Find.pm @@ -1119,7 +1119,7 @@ sub _find_dir_symlnk($$$) { # ignore if invalid symlink unless (defined $new_loc) { - if ($dangling_symlinks) { + if (!defined -l _ && $dangling_symlinks) { if (ref $dangling_symlinks eq 'CODE') { $dangling_symlinks->($FN, $dir_pref); } else { |