Ertuğrul Erata
73 lines
2.2 KiB
Diff
73 lines
2.2 KiB
Diff
diff --git a/meta/recipes-connectivity/openssl/openssl-1.0.0i/find.pl b/meta/recipes-connectivity/openssl/openssl-1.0.0i/find.pl
|
|
new file mode 100644
|
|
index 0000000..8e1b42c
|
|
--- /dev/null
|
|
+++ openssl-1.0.0i/find.pl
|
|
@@ -0,0 +1,54 @@
|
|
+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";
|
|
+
|
|
+# This library is deprecated and unmaintained. It is included for
|
|
+# compatibility with Perl 4 scripts which may use it, but it will be
|
|
+# removed in a future version of Perl. Please use the File::Find module
|
|
+# instead.
|
|
+
|
|
+# Usage:
|
|
+# require "find.pl";
|
|
+#
|
|
+# &find('/foo','/bar');
|
|
+#
|
|
+# sub wanted { ... }
|
|
+# where wanted does whatever you want. $dir contains the
|
|
+# current directory name, and $_ the current filename within
|
|
+# that directory. $name contains "$dir/$_". You are cd'ed
|
|
+# to $dir when the function is called. The function may
|
|
+# set $prune to prune the tree.
|
|
+#
|
|
+# For example,
|
|
+#
|
|
+# find / -name .nfs\* -mtime +7 -exec rm -f {} \; -o -fstype nfs -prune
|
|
+#
|
|
+# corresponds to this
|
|
+#
|
|
+# sub wanted {
|
|
+# /^\.nfs.*$/ &&
|
|
+# (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
|
|
+# int(-M _) > 7 &&
|
|
+# unlink($_)
|
|
+# ||
|
|
+# ($nlink || (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_))) &&
|
|
+# $dev < 0 &&
|
|
+# ($prune = 1);
|
|
+# }
|
|
+#
|
|
+# Set the variable $dont_use_nlink if you're using AFS, since AFS cheats.
|
|
+
|
|
+use File::Find ();
|
|
+
|
|
+*name = *File::Find::name;
|
|
+*prune = *File::Find::prune;
|
|
+*dir = *File::Find::dir;
|
|
+*topdir = *File::Find::topdir;
|
|
+*topdev = *File::Find::topdev;
|
|
+*topino = *File::Find::topino;
|
|
+*topmode = *File::Find::topmode;
|
|
+*topnlink = *File::Find::topnlink;
|
|
+
|
|
+sub find {
|
|
+ &File::Find::find(\&wanted, @_);
|
|
+}
|
|
+
|
|
+1;
|
|
|
|
--- openssl-1.0.2m/util/perlpath.pl~ 2017-10-26 23:34:32.000000000 +0300
|
|
+++ openssl-1.0.2m/util/perlpath.pl 2017-11-01 13:08:24.963877348 +0200
|
|
@@ -4,7 +4,7 @@
|
|
# line in all scripts that rely on perl.
|
|
#
|
|
|
|
-require "find.pl";
|
|
+require "./find.pl";
|
|
|
|
$#ARGV == 0 || print STDERR "usage: perlpath newpath (eg /usr/bin)\n";
|
|
&find(".");
|