From 0c1c71f241ab034fc59d9d6483c8f8f70e144df6 Mon Sep 17 00:00:00 2001
From: David Dyck <david.dyck@fluke.com>
Date: Tue, 29 May 2001 05:19:38 -0700
Subject: [ID 20010529.003] find2perl and File::Find doesn't emulate find when
 path is a symlink (with proposed patch) Message-Id:
 <Pine.LNX.4.33.0105291216510.17409-100000@dd.tc.fluke.com>

p4raw-id: //depot/perl@10308
---
 lib/File/Find.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index ef3d2412b6..cec6afbea4 100644
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -330,9 +330,8 @@ sub _find_opt {
         $top_item =~ s|/\z|| unless $top_item eq '/';
         $Is_Dir= 0;
         
-        ($topdev,$topino,$topmode,$topnlink) = stat $top_item;
-
         if ($follow) {
+ 	    ($topdev,$topino,$topmode,$topnlink) = stat $top_item;
             if (substr($top_item,0,1) eq '/') {
                 $abs_dir = $top_item;
             }
@@ -353,6 +352,7 @@ sub _find_opt {
             }
         }
 	else { # no follow
+	    ($topdev,$topino,$topmode,$topnlink) = lstat $top_item;
             $topdir = $top_item;
             unless (defined $topnlink) {
                 warn "Can't stat $top_item: $!\n";
-- 
cgit v1.2.1