In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9b33fb8e6c642ded0db0a0bb8945dd083127b56f?hp=3d4382850300c498d5f4a81fdec29a4a557840bd>
- Log ----------------------------------------------------------------- commit 9b33fb8e6c642ded0db0a0bb8945dd083127b56f Author: Dan Jacobson <[email protected]> Date: Wed Mar 25 08:09:05 2009 -0500 Add SEE ALSO's to find2perl and File::Find. ----------------------------------------------------------------------- Summary of changes: lib/File/Find.pm | 4 ++++ x2p/find2perl.PL | 8 +++++++- 2 files changed, 11 insertions(+), 1 deletions(-) diff --git a/lib/File/Find.pm b/lib/File/Find.pm index 641e420..eddedbd 100644 --- a/lib/File/Find.pm +++ b/lib/File/Find.pm @@ -411,6 +411,10 @@ File::Find used to produce incorrect results if called recursively. During the development of perl 5.8 this bug was fixed. The first fixed version of File::Find was 1.01. +=head1 SEE ALSO + +find, find2perl. + =cut our @ISA = qw(Exporter); diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL index 5add931..982ed26 100644 --- a/x2p/find2perl.PL +++ b/x2p/find2perl.PL @@ -55,6 +55,12 @@ my $startperl = "#! $perlpath -w"; # Ken Pizzini <[email protected]> # # Modified 2000-01-28 to use the 'follow' option of File::Find +# +# Note currently +# $ find2perl -name a|wc #produces a shorter program +# 30 72 569 +# $ find2perl |wc #than this: +# 33 76 655 sub tab (); sub n ($$); @@ -921,7 +927,7 @@ Predicates which take a numeric argument N can come in three forms: =head1 SEE ALSO -find +find, File::Find. =cut !NO!SUBS! -- Perl5 Master Repository
