cvs commit: perlfaq perlfaq3.pod

cvsuser     03/09/30 20:30:53

  Modified:    .        perlfaq3.pod
  Log:
  Change 21391 by rgs@sixop on 2003/09/30 12:47:13
  
          Useless "local $_" in a perlfaq3 example
  
  Revision  Changes    Path
  1.36      +2 -4      perlfaq/perlfaq3.pod
  
  Index: perlfaq3.pod
  ===================================================================
  RCS file: /cvs/public/perlfaq/perlfaq3.pod,v
  retrieving revision 1.35
  retrieving revision 1.36
  diff -u -w -r1.35 -r1.36
  --- perlfaq3.pod	24 Aug 2003 05:26:59 -0000	1.35
  +++ perlfaq3.pod	1 Oct 2003 03:30:53 -0000	1.36
  @@ -1,6 +1,6 @@
   =head1 NAME
   
  -perlfaq3 - Programming Tools ($Revision: 1.35 $, $Date: 2003/08/24 05:26:59 $)
  +perlfaq3 - Programming Tools ($Revision: 1.36 $, $Date: 2003/10/01 03:30:53 $)
   
   =head1 DESCRIPTION
   
  @@ -146,10 +146,8 @@
     timethese($count, {
               'map' => sub { my @a = @junk;
   			   map { s/a/b/ } @a;
  -			   return @a
  -			 },
  +			   return @a },
               'for' => sub { my @a = @junk;
  -			   local $_;
   			   for (@a) { s/a/b/ };
   			   return @a },
              });