diff options
Diffstat (limited to 'pod/modpods/Find.pod')
-rw-r--r-- | pod/modpods/Find.pod | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/pod/modpods/Find.pod b/pod/modpods/Find.pod deleted file mode 100644 index 40a2aed300..0000000000 --- a/pod/modpods/Find.pod +++ /dev/null @@ -1,44 +0,0 @@ -=head1 NAME - -find - traverse a file tree - -=head1 SYNOPSIS - - use File::Find; - find(\&wanted, '/foo','/bar'); - sub wanted { ... } - -=head1 DESCRIPTION - -The wanted() function does whatever verifications you want. $dir contains -the current directory name, and $_ the current filename within that -directory. $name contains C<"$dir/$_">. You are chdir()'d to $dir when -the function is called. The function may set $prune to prune the tree. - -This library is primarily for the C<find2perl> tool, which when fed, - - find2perl / -name .nfs\* -mtime +7 \ - -exec rm -f {} \; -o -fstype nfs -prune - -produces something like: - - sub wanted { - /^\.nfs.*$/ && - (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) && - int(-M _) > 7 && - unlink($_) - || - ($nlink || (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_))) && - $dev < 0 && - ($prune = 1); - } - -Set the variable $dont_use_nlink if you're using AFS, since AFS cheats. - -Here's another interesting wanted function. It will find all symlinks -that don't resolve: - - sub wanted { - -l && !-e && print "bogus link: $name\n"; - } - |