From fab43c1bb262944cb8f1d820af87e47b89cd3e12 Mon Sep 17 00:00:00 2001
From: "ammon@rhythm.com" <ammon@rhythm.com>
Date: Tue, 19 Sep 2006 13:56:32 -0700
Subject: [PATCH] [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
---
 lib/File/Find.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 213b4c0..864c207 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 {
-- 
2.7.4