find2perl (was Re: help unblock me from *@perl.org so I can use perlbug)
authorMichael G Schwern <schwern@pobox.com>
Wed, 25 Mar 2009 13:59:11 +0000 (08:59 -0500)
committerSteve Peters <steve@fisharerojo.org>
Wed, 25 Mar 2009 13:59:11 +0000 (08:59 -0500)
x2p/find2perl.PL

index 982ed26..e9275d0 100644 (file)
@@ -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 ($);