diff options
| author | Alexander Kanavin <alexander.kanavin@linux.intel.com> | 2018-03-28 15:43:07 +0300 |
|---|---|---|
| committer | Richard Purdie <richard.purdie@linuxfoundation.org> | 2018-03-30 00:31:18 +0100 |
| commit | 51088f1bcd9a62068f63cc00b1a9920c15488867 (patch) | |
| tree | 364e81cfaeaefca7172e12c5c987a51a5f1f2595 /meta/recipes-connectivity/openssl/openssl-1.0.2o/find.pl | |
| parent | 5ba7622e379180c7c78aadac3a067d5a788367ca (diff) | |
| download | poky-51088f1bcd9a62068f63cc00b1a9920c15488867.tar.gz | |
openssl: update 1.0.2n -> 1.0.2o
Please see this security advisory:
https://www.openssl.org/news/secadv/20180327.txt
License-Update: copyright years
(From OE-Core rev: 13542282e34c078296c46a98721b31ed9a69a980)
Signed-off-by: Alexander Kanavin <alexander.kanavin@linux.intel.com>
Signed-off-by: Ross Burton <ross.burton@intel.com>
Signed-off-by: Richard Purdie <richard.purdie@linuxfoundation.org>
Diffstat (limited to 'meta/recipes-connectivity/openssl/openssl-1.0.2o/find.pl')
| -rw-r--r-- | meta/recipes-connectivity/openssl/openssl-1.0.2o/find.pl | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/meta/recipes-connectivity/openssl/openssl-1.0.2o/find.pl b/meta/recipes-connectivity/openssl/openssl-1.0.2o/find.pl new file mode 100644 index 0000000000..8e1b42c88a --- /dev/null +++ b/meta/recipes-connectivity/openssl/openssl-1.0.2o/find.pl | |||
| @@ -0,0 +1,54 @@ | |||
| 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 | |||
| 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 | |||
| 8 | # Usage: | ||
| 9 | # require "find.pl"; | ||
| 10 | # | ||
| 11 | # &find('/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 | # | ||
| 20 | # For example, | ||
| 21 | # | ||
| 22 | # find / -name .nfs\* -mtime +7 -exec rm -f {} \; -o -fstype nfs -prune | ||
| 23 | # | ||
| 24 | # corresponds to this | ||
| 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 | # | ||
| 37 | # Set the variable $dont_use_nlink if you're using AFS, since AFS cheats. | ||
| 38 | |||
| 39 | use File::Find (); | ||
| 40 | |||
| 41 | *name = *File::Find::name; | ||
| 42 | *prune = *File::Find::prune; | ||
| 43 | *dir = *File::Find::dir; | ||
| 44 | *topdir = *File::Find::topdir; | ||
| 45 | *topdev = *File::Find::topdev; | ||
| 46 | *topino = *File::Find::topino; | ||
| 47 | *topmode = *File::Find::topmode; | ||
| 48 | *topnlink = *File::Find::topnlink; | ||
| 49 | |||
| 50 | sub find { | ||
| 51 | &File::Find::find(\&wanted, @_); | ||
| 52 | } | ||
| 53 | |||
| 54 | 1; | ||
