[EMAIL PROTECTED] wrote:
> Try to do recursive find using File::Find, but do not
> want to count any directory which is a softlink.
>
> If I do
>
> return if ( -l $File::Find:name );
>
> it seems still go down to the tree of the softlink
> target.
>
>
> Any way to do this?
Try adding a prune to your code (just a guess):
if (-l _) { $File::Find::prune = 1; return; }
--
,-/- __ _ _ $Bill Luebkert ICQ=14439852
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // http://dbecoll.tripod.com/ (Free site for Perl)
-/-' /___/_<_</_</_ Castle of Medieval Myth & Magic http://www.todbe.com/
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
