In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/ec36440ecf561a8bd3730f55ec9e410ac7a9f302?hp=1e4aa4a587074e54fbb78449b8d9262e220217ca>

- Log -----------------------------------------------------------------
commit ec36440ecf561a8bd3730f55ec9e410ac7a9f302
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Wed May 23 18:19:56 2012 -0700

    Add another address for Ronald Kimball to checkAUTHORS.pl

M       Porting/checkAUTHORS.pl

commit c77257ed0e74a0f687e15e3114b395bb273c5b2f
Author: Ronald J Kimball <r...@tamias.net>
Date:   Wed May 23 18:17:16 2012 -0700

    [perl #112604] perlre man page contains suspect example of recursion
    
    Jim Avera wrote:
    > This seems incorrect because the \s++ eats all white space without
    > backtracking, preventing the following \s+ from matching.
    > Thus the pattern always fails for any input.
    
    It should be \s+ \+ \s+

M       pod/perlre.pod
-----------------------------------------------------------------------

Summary of changes:
 Porting/checkAUTHORS.pl |    1 +
 pod/perlre.pod          |    2 +-
 2 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl
index a4e77fb..6c22a49 100755
--- a/Porting/checkAUTHORS.pl
+++ b/Porting/checkAUTHORS.pl
@@ -802,6 +802,7 @@ rjbs\100cpan.org                        
rjbs-perl-p5p\100lists.manxome.org
 +                                       perl.p5p\100rjbs.manxome.org
 rjk\100linguist.dartmouth.edu           rjk\100linguist.thayer.dartmouth.edu
 +                                       rjk-perl-p5p\100tamias.net
++                                       rjk\100tamias.net
 rjray\100redhat.com                     rjray\100uswest.com
 rmgiroux\100acm.org                     rmgiroux\100hotmail.com
 +                                       mgiroux\100bear.com
diff --git a/pod/perlre.pod b/pod/perlre.pod
index 9c5c3ad..b4bb45e 100644
--- a/pod/perlre.pod
+++ b/pod/perlre.pod
@@ -1453,7 +1453,7 @@ easier to embed recursive patterns inside of a C<qr//> 
construct
 for later use:
 
     my $parens = qr/(\((?:[^()]++|(?-1))*+\))/;
-    if (/foo $parens \s+ + \s+ bar $parens/x) {
+    if (/foo $parens \s+ \+ \s+ bar $parens/x) {
        # do something here...
     }
 

--
Perl5 Master Repository

Reply via email to