- up to 1.0.2j; fixes CVE-2016-7052
[packages/openssl.git] / openssl-find.patch
CommitLineData
3b0168a6
AM
1diff --git a/meta/recipes-connectivity/openssl/openssl-1.0.0i/find.pl b/meta/recipes-connectivity/openssl/openssl-1.0.0i/find.pl
2new file mode 100644
3index 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
This page took 0.396247 seconds and 4 git commands to generate.