From: Dan Jacobson <jidanni@hoffa.dreamhost.com>
Date: Wed, 25 Mar 2009 13:09:05 +0000 (-0500)
Subject: Add SEE ALSO's to find2perl and File::Find.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9b33fb8e6c642ded0db0a0bb8945dd083127b56f;p=p5sagit%2Fp5-mst-13.2.git

Add SEE ALSO's to find2perl and File::Find.
---

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 <ken@halcyon.com>
 #
 # 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!