cvs commit: perlfaq perlfaq3.pod

cvsuser     05/11/14 08:38:13

  Modified:    .        perlfaq3.pod
  Log:
  * Fix 35847 to bleadperl: patch up File::Find docs so the code examples
  do what people expect. Instead of using the _ filehandle, use the full
  file name in case File::Find hasn't called lstat yet.
  
  Revision  Changes    Path
  1.53      +9 -3      perlfaq/perlfaq3.pod
  
  Index: perlfaq3.pod
  ===================================================================
  RCS file: /cvs/public/perlfaq/perlfaq3.pod,v
  retrieving revision 1.52
  retrieving revision 1.53
  diff -u -r1.52 -r1.53
  --- perlfaq3.pod	13 Oct 2005 19:43:13 -0000	1.52
  +++ perlfaq3.pod	14 Nov 2005 16:38:12 -0000	1.53
  @@ -85,8 +85,14 @@
       use File::Find;
       my @files;
   
  -    find sub { push @files, $File::Find::name if -f _ && /\.pm$/ },
  -         @INC;
  +    find(
  +      sub { 
  +      	push @files, $File::Find::name 
  +      		if -f $File::Find::name && /\.pm$/ 
  +      	},
  +      	
  +      @INC
  +      );
   
   	print join "\n", @files;