[MacPerl] Is there something strange about File::Find?

["Creede Lambard (Volt Computer)" <a-creela@microsoft.com>]

The reason I ask is, I'm running into a situation where find seems to think
files with no data fork are folders. Here's an example:

#! perl 

use File::Find;
find (&function,"Macintosh HD:My Folder")

sub function
{
my $newfile = $_;
my $source = "$File::Find::dir$newfile";
print $source,"\n";
}

"Macintosh HD:My Folder" contains several files, one of which has a
zero-length data fork. Let's call them file1, file2 and file3, with file3
being the zero-length-data-fork file. So when I run this program I get this
output:

Macintosh HD:My Folder:file1
Macintosh HD:My Folder:file2
Macintosh HD:My Folder:file3:file1
Macintosh HD:My Folder:file3:file2
Macintosh HD:My Folder:file3:file3

The real function is checking for the existence of a file, so it complains
that the last three files don't exist.

Anybody ever see anything like this? I could hack File::Recurse to do it, or
create a standalone recursion function (actually, I have one of those laying
around from when I got the first edition of the Camel Book) but I'm curious
whether this is something anyone else is seeing, or whether I've just done
something dumb. I'd be willling to believe the latter, but I would like it
checked out by independent authority. Thanks. 


==========================================================================
Creede Lambard 44/2704  |       International Build Architect, Bon Vivant,
One Microsoft Way       | All Around Nice Guy and Just Another Perl Hacker
Redmond, WA 98052       |=================================================
(425) 703-2255 x13408   |  "Know what happens when you rush a miracle man?
a-creela@microsoft.com  |   You get lousy miracles." -- The Princess Bride
==========================================================================


===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org