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 | |
| parent | 6fa80ea2f46c3527db9bfc3ba3a52c12826c85c7 (diff) | |
| download | perl-19aca64933c801470dbac7c3262f00a8f0d0310b.tar.gz | |
Deprecate lib/find{,depth}.pl with a warning
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/find.pl | 15 | ||||
| -rw-r--r-- | lib/finddepth.pl | 15 |
2 files changed, 24 insertions, 6 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.*$/ && diff --git a/lib/finddepth.pl b/lib/finddepth.pl index bfa44bb1bc..6a177c6113 100644 --- a/lib/finddepth.pl +++ b/lib/finddepth.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" + ." 'finddepth.pl' library, which will be removed in the next" + ." major release of perl" ); + # Usage: # require "finddepth.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.*$/ && |