diff options
| author | Ronald J Kimball <rjk@tamias.net> | 2012-05-23 18:17:16 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-23 18:18:05 -0700 |
| commit | c77257ed0e74a0f687e15e3114b395bb273c5b2f (patch) | |
| tree | cea58bb49e213380913c3a451d453a43a3a77d67 | |
| parent | 1e4aa4a587074e54fbb78449b8d9262e220217ca (diff) | |
| download | perl-c77257ed0e74a0f687e15e3114b395bb273c5b2f.tar.gz | |
[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+
| -rw-r--r-- | pod/perlre.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlre.pod b/pod/perlre.pod index 9c5c3ad568..b4bb45ee71 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... } |