openssl-find.patch

   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
   2 new file mode 100644
   3 index 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