cvs commit: perlfaq perlfaq6.pod

cvsuser     04/08/05 17:07:41

  Modified:    .        perlfaq6.pod
  Log:
  * adds a phrase to point out the magic featurein the example
  
  * make the example pirnt a message just like the other examples
  
  Revision  Changes    Path
  1.24      +7 -7      perlfaq/perlfaq6.pod
  
  Index: perlfaq6.pod
  ===================================================================
  RCS file: /cvs/public/perlfaq/perlfaq6.pod,v
  retrieving revision 1.23
  retrieving revision 1.24
  diff -u -w -r1.23 -r1.24
  --- perlfaq6.pod	5 May 2004 03:51:37 -0000	1.23
  +++ perlfaq6.pod	6 Aug 2004 00:07:41 -0000	1.24
  @@ -1,6 +1,6 @@
   =head1 NAME
   
  -perlfaq6 - Regular Expressions ($Revision: 1.23 $, $Date: 2004/05/05 03:51:37 $)
  +perlfaq6 - Regular Expressions ($Revision: 1.24 $, $Date: 2004/08/06 00:07:41 $)
   
   =head1 DESCRIPTION
   
  @@ -745,9 +745,9 @@
      }
   
   Here's another, slightly less painful, way to do it from Benjamin
  -Goldberg:
  +Goldberg, who uses a zero-width negative look-behind assertion.
   
  -	$martian =~ m/
  +	print "found GX!\n" if	$martian =~ m/
   	   (?<![A-Z])
   	   (?:[A-Z][A-Z])*?
   	   GX