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
5 +++ openssl-1.0.0i/find.pl
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";
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
17 +# &find('/foo','/bar');
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.
28 +# find / -name .nfs\* -mtime +7 -exec rm -f {} \; -o -fstype nfs -prune
30 +# corresponds to this
34 +# (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
38 +# ($nlink || (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_))) &&
43 +# Set the variable $dont_use_nlink if you're using AFS, since AFS cheats.
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;
57 + &File::Find::find(\&wanted, @_);