diff options
| author | David Dyck <david.dyck@fluke.com> | 2001-05-29 05:19:38 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-30 01:55:02 +0000 |
| commit | 0c1c71f241ab034fc59d9d6483c8f8f70e144df6 (patch) | |
| tree | 1760d2479b6236ab1fbf67e81823defb63ab6b1d /lib | |
| parent | 2e3031cb1042e20719409a5a91aba94b684a1f37 (diff) | |
| download | perl-0c1c71f241ab034fc59d9d6483c8f8f70e144df6.tar.gz | |
[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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/File/Find.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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"; |