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 (file)
--- 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 (file)
--- 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!