]>
Commit | Line | Data |
---|---|---|
3b0168a6 AM |
1 | diff --git a/meta/recipes-connectivity/openssl/openssl-1.0.0i/find.pl b/meta/recipes-connectivity/openssl/openssl-1.0.0i/find.pl |
2 | new file mode 100644 | |
3 | index 0000000..8e1b42c | |
4 | --- /dev/null | |
5 | +++ openssl-1.0.0i/find.pl | |
6 | @@ -0,0 +1,54 @@ | |
7 | +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"; | |
8 | + | |
9 | +# This library is deprecated and unmaintained. It is included for | |
10 | +# compatibility with Perl 4 scripts which may use it, but it will be | |
11 | +# removed in a future version of Perl. Please use the File::Find module | |
12 | +# instead. | |
13 | + | |
14 | +# Usage: | |
15 | +# require "find.pl"; | |
16 | +# | |
17 | +# &find('/foo','/bar'); | |
18 | +# | |
19 | +# sub wanted { ... } | |
20 | +# where wanted does whatever you want. $dir contains the | |
21 | +# current directory name, and $_ the current filename within | |
22 | +# that directory. $name contains "$dir/$_". You are cd'ed | |
23 | +# to $dir when the function is called. The function may | |
24 | +# set $prune to prune the tree. | |
25 | +# | |
26 | +# For example, | |
27 | +# | |
28 | +# find / -name .nfs\* -mtime +7 -exec rm -f {} \; -o -fstype nfs -prune | |
29 | +# | |
30 | +# corresponds to this | |
31 | +# | |
32 | +# sub wanted { | |
33 | +# /^\.nfs.*$/ && | |
34 | +# (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) && | |
35 | +# int(-M _) > 7 && | |
36 | +# unlink($_) | |
37 | +# || | |
38 | +# ($nlink || (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_))) && | |
39 | +# $dev < 0 && | |
40 | +# ($prune = 1); | |
41 | +# } | |
42 | +# | |
43 | +# Set the variable $dont_use_nlink if you're using AFS, since AFS cheats. | |
44 | + | |
45 | +use File::Find (); | |
46 | + | |
47 | +*name = *File::Find::name; | |
48 | +*prune = *File::Find::prune; | |
49 | +*dir = *File::Find::dir; | |
50 | +*topdir = *File::Find::topdir; | |
51 | +*topdev = *File::Find::topdev; | |
52 | +*topino = *File::Find::topino; | |
53 | +*topmode = *File::Find::topmode; | |
54 | +*topnlink = *File::Find::topnlink; | |
55 | + | |
56 | +sub find { | |
57 | + &File::Find::find(\&wanted, @_); | |
58 | +} | |
59 | + | |
60 | +1; | |
61 |