From: Andreas König <a.koenig@mind.de>
Date: Fri, 15 Jun 2001 13:30:39 +0000 (+0200)
Subject: Re: [ID 20010608.010] File::Find re-entrancy
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a85af077429e952fee988d4fbff702eca28546d1;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20010608.010] File::Find re-entrancy
Message-ID: <m3hexikmjk.fsf@ak-71.mind.de>

Record the grim history.

p4raw-id: //depot/perl@10608
---

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 274c7b8..d28c2f9 100644
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -2,7 +2,7 @@ package File::Find;
 use strict;
 use warnings;
 use 5.6.0;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
 require Exporter;
 require Cwd;
 
@@ -268,6 +268,12 @@ volume actually maintains its own "Desktop Folder" directory.
 
 =back
 
+=head1 HISTORY
+
+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.
+
 =cut
 
 our @ISA = qw(Exporter);