X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=x2p%2Ffind2perl.PL;h=e9275d0c5c57ab7f7ef1657f455e42de5e055c65;hb=b212a3c602c7ab2fcce55cf1027f73c6280d3b7b;hp=5add931397aa4741b1e0e3f3180523506c2a66f6;hpb=863b2ca087e42ff68afb6c3798e231d6d04e396b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL
index 5add931..e9275d0 100644
--- a/x2p/find2perl.PL
+++ b/x2p/find2perl.PL
@@ -42,20 +42,6 @@ use vars qw/$statdone/;
 use File::Spec::Functions 'curdir';
 my $startperl = "#! $perlpath -w";
 
-#
-# Modified September 26, 1993 to provide proper handling of years after 1999
-#   Tom Link <tml+@pitt.edu>
-#   University of Pittsburgh
-#
-# Modified April 7, 1998 with nasty hacks to implement the troublesome -follow
-#  Billy Constantine <wdconsta@cs.adelaide.edu.au> <billy@smug.adelaide.edu.au>
-#  University of Adelaide, Adelaide, South Australia
-#
-# Modified 1999-06-10, 1999-07-07 to migrate to cleaner perl5 usage
-#   Ken Pizzini <ken@halcyon.com>
-#
-# Modified 2000-01-28 to use the 'follow' option of File::Find
-
 sub tab ();
 sub n ($$);
 sub fileglob_to_re ($);
@@ -921,7 +907,7 @@ Predicates which take a numeric argument N can come in three forms:
 
 =head1 SEE ALSO
 
-find
+find, File::Find.
 
 =cut
 !NO!SUBS!