"Bug" fix for File::Find.pm

To: "'cpan@perl.org'" <cpan@perl.org>
Message-ID: <311F144DB5E5D011B03F00805FE954B10708BE17@exchange01_ph.borders.com>

p4raw-id: //depot/cfgperl@2605

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 9cd5c06..284bf67 100644 (file)
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -168,6 +168,7 @@ sub finddir {
 
                # Get link count and check for directoriness.
 
+               $_ = "" if (!defined($_));
                ($dev,$ino,$mode,$nlink) = ($Is_VMS ? stat($_) : lstat($_));
                    # unless ($nlink || $dont_use_nlink);