From: Jonathan Fine <jfine@borders.com>
Date: Thu, 31 Dec 1998 13:01:50 +0000 (-0500)
Subject: "Bug" fix for File::Find.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f0242eb70a44bece80969fa65b9c9aa17ee6415;p=p5sagit%2Fp5-mst-13.2.git

"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
--- 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);