X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=x2p%2Ffind2perl.PL;h=e9275d0c5c57ab7f7ef1657f455e42de5e055c65;hb=352e1c09cf09498d4917c120c2055943a4301c0a;hp=982ed2632c99ad63c87a113d8435004540f99a4e;hpb=9b33fb8e6c642ded0db0a0bb8945dd083127b56f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/x2p/find2perl.PL b/x2p/find2perl.PL
index 982ed26..e9275d0 100644
--- a/x2p/find2perl.PL
+++ b/x2p/find2perl.PL
@@ -42,26 +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
-#
-# Note currently
-# $ find2perl -name a|wc #produces a shorter program
-#     30      72     569
-# $ find2perl        |wc #than this:
-#     33      76     655
-
 sub tab ();
 sub n ($$);
 sub fileglob_to_re ($);