summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorJonathan Fine <jfine@borders.com>1998-12-31 08:01:50 -0500
committerJarkko Hietaniemi <jhi@iki.fi>1999-01-13 18:26:19 +0000
commit2f0242eb70a44bece80969fa65b9c9aa17ee6415 (patch)
tree951b83527c398441a7d98276435bbf66559f954d /lib
parent0a6b11f8fedc4bae957f03efab3ecb64338ce939 (diff)
downloadperl-2f0242eb70a44bece80969fa65b9c9aa17ee6415.tar.gz
"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
Diffstat (limited to 'lib')
-rw-r--r--lib/File/Find.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 9cd5c06d0b..284bf678ac 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);