diff options
| author | Abhijit Menon-Sen <ams@toroid.org> | 2009-09-03 00:09:44 +0530 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@toroid.org> | 2009-09-03 00:10:13 +0530 |
| commit | 19aca64933c801470dbac7c3262f00a8f0d0310b (patch) | |
| tree | ed72c5a1e24774162de26392daa524fcf91cefbe /lib/find.pl | |
| parent | 6fa80ea2f46c3527db9bfc3ba3a52c12826c85c7 (diff) | |
| download | perl-19aca64933c801470dbac7c3262f00a8f0d0310b.tar.gz | |
Deprecate lib/find{,depth}.pl with a warning
Diffstat (limited to 'lib/find.pl')
| -rw-r--r-- | lib/find.pl | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/lib/find.pl b/lib/find.pl index ee5dc5d150..e8e4eb76d2 100644 --- a/lib/find.pl +++ b/lib/find.pl @@ -1,3 +1,12 @@ +# 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. + +warn( "Please use the File::Find module instead of the deprecated" + ." 'find.pl' library, which will be removed in the next major" + ." release of perl" ); + # Usage: # require "find.pl"; # @@ -10,11 +19,11 @@ # to $dir when the function is called. The function may # set $prune to prune the tree. # -# This library is primarily for find2perl, which, when fed +# For example, # -# find2perl / -name .nfs\* -mtime +7 -exec rm -f {} \; -o -fstype nfs -prune +# find / -name .nfs\* -mtime +7 -exec rm -f {} \; -o -fstype nfs -prune # -# spits out something like this +# corresponds to this # # sub wanted { # /^\.nfs.*$/ && |