From: Michael G Schwern <schwern@pobox.com>
Date: Wed, 25 Mar 2009 13:59:11 +0000 (-0500)
Subject: find2perl (was Re: help unblock me from *@perl.org so I can use perlbug)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=06b04381422967d8e9b6486b0263b0856a171d65;p=p5sagit%2Fp5-mst-13.2.git

find2perl (was Re: help unblock me from *@perl.org so I can use perlbug)
---

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 ($);