[openssl] update to lastest version in oe-core (now v1.0.1j).
[vuplus_openvuplus_3.0] / meta-openvuplus / recipes-connectivity / openssl / openssl-0.9.8x / find.pl
diff --git a/meta-openvuplus/recipes-connectivity/openssl/openssl-0.9.8x/find.pl b/meta-openvuplus/recipes-connectivity/openssl/openssl-0.9.8x/find.pl
deleted file mode 100644 (file)
index 8e1b42c..0000000
+++ /dev/null
@@ -1,54 +0,0 @@
-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;