# where wanted does whatever you want. $dir contains the
# current directory name, and $_ the current filename within
# that directory. $name contains "$dir/$_". You are cd'ed
# to $dir when the function is called. The function may
# set $prune to prune the tree.
# This library is primarily for find2perl, which, when fed
# find2perl / -name .nfs\* -mtime +7 -exec rm -f {} \; -o -fstype nfs -prune
# spits out something like this
# (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
# ($nlink || (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_))) &&
# Set the variable $dont_use_nlink if you're using AFS, since AFS cheats.
*name
= *File
::Find
::name
;
*prune
= *File
::Find
::prune
;
*topdir
= *File
::Find
::topdir
;
*topdev
= *File
::Find
::topdev
;
*topino
= *File
::Find
::topino
;
*topmode
= *File
::Find
::topmode
;
*topnlink
= *File
::Find
::topnlink
;
&File
::Find
::find
(\
&wanted
, @_);