diff options
author | Radu Moisan <radu.moisan@intel.com> | 2013-04-09 10:06:27 +0300 |
---|---|---|
committer | Richard Purdie <richard.purdie@linuxfoundation.org> | 2013-04-09 13:16:53 +0100 |
commit | f720f8f3d24fe914aaa2e7f6db190118769abf63 (patch) | |
tree | 1145f63be04aafa0b6532c184a47df46ab3f9dfe /meta/recipes-connectivity/openssl/openssl-1.0.1e/find.pl | |
parent | fb37dd6822578fced05fa4ab66b56341a46b3bbc (diff) | |
download | poky-f720f8f3d24fe914aaa2e7f6db190118769abf63.tar.gz |
openssl: Upgrade to v1.0.1e
Dropped obolete patches and pulled updates for debian patches.
Addresses CVEs:
http://web.nvd.nist.gov/view/vuln/detail?vulnId=CVE-2012-2686
http://web.nvd.nist.gov/view/vuln/detail?vulnId=CVE-2013-0166
http://web.nvd.nist.gov/view/vuln/detail?vulnId=CVE-2013-0169
[YOCTO #3965]
(From OE-Core rev: 0470edd01c0aebaa78db137e365a7e22bfb199e9)
Signed-off-by: Radu Moisan <radu.moisan@intel.com>
Signed-off-by: Richard Purdie <richard.purdie@linuxfoundation.org>
Diffstat (limited to 'meta/recipes-connectivity/openssl/openssl-1.0.1e/find.pl')
-rw-r--r-- | meta/recipes-connectivity/openssl/openssl-1.0.1e/find.pl | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/meta/recipes-connectivity/openssl/openssl-1.0.1e/find.pl b/meta/recipes-connectivity/openssl/openssl-1.0.1e/find.pl new file mode 100644 index 0000000000..8e1b42c88a --- /dev/null +++ b/meta/recipes-connectivity/openssl/openssl-1.0.1e/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; | ||