Commit | Line | Data |
---|---|---|
0111154e Z |
1 | warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; |
2 | ||
19aca649 AMS |
3 | # This library is deprecated and unmaintained. It is included for |
4 | # compatibility with Perl 4 scripts which may use it, but it will be | |
5 | # removed in a future version of Perl. Please use the File::Find module | |
6 | # instead. | |
7 | ||
6e21c824 LW |
8 | # Usage: |
9 | # require "finddepth.pl"; | |
10 | # | |
11 | # &finddepth('/foo','/bar'); | |
12 | # | |
13 | # sub wanted { ... } | |
14 | # where wanted does whatever you want. $dir contains the | |
15 | # current directory name, and $_ the current filename within | |
16 | # that directory. $name contains "$dir/$_". You are cd'ed | |
17 | # to $dir when the function is called. The function may | |
18 | # set $prune to prune the tree. | |
19 | # | |
19aca649 | 20 | # For example, |
6e21c824 | 21 | # |
19aca649 | 22 | # find / -name .nfs\* -mtime +7 -exec rm -f {} \; -o -fstype nfs -prune |
6e21c824 | 23 | # |
19aca649 | 24 | # corresponds to this |
6e21c824 LW |
25 | # |
26 | # sub wanted { | |
27 | # /^\.nfs.*$/ && | |
28 | # (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) && | |
29 | # int(-M _) > 7 && | |
30 | # unlink($_) | |
31 | # || | |
32 | # ($nlink || (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_))) && | |
33 | # $dev < 0 && | |
34 | # ($prune = 1); | |
35 | # } | |
36 | ||
6e21c824 | 37 | |
dffa8cde | 38 | use File::Find (); |
6e21c824 | 39 | |
28312d68 RS |
40 | *name = *File::Find::name; |
41 | *prune = *File::Find::prune; | |
42 | *dir = *File::Find::dir; | |
43 | *topdir = *File::Find::topdir; | |
44 | *topdev = *File::Find::topdev; | |
45 | *topino = *File::Find::topino; | |
46 | *topmode = *File::Find::topmode; | |
47 | *topnlink = *File::Find::topnlink; | |
6e21c824 | 48 | |
dffa8cde | 49 | sub finddepth { |
50 | &File::Find::finddepth(\&wanted, @_); | |
6e21c824 | 51 | } |
dffa8cde | 52 | |
6e21c824 | 53 | 1; |