From: Ronald J Kimball <rjk@tamias.net>
Date: Thu, 24 May 2012 01:17:16 +0000 (-0700)
Subject: [perl #112604] perlre man page contains suspect example of recursion
X-Git-Tag: upstream/5.20.0~6721
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c77257ed0e74a0f687e15e3114b395bb273c5b2f;p=platform%2Fupstream%2Fperl.git

[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+
---

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...
     }