RT #77150: perlre documentation issue and possible fix

diff --git a/pod/perl5134delta.pod b/pod/perl5134delta.pod
index 418ac88..045b347 100644 (file)
--- a/pod/perl5134delta.pod
+++ b/pod/perl5134delta.pod
@@ -190,9 +190,21 @@ XXX
 
 =head1 Documentation
 
+=head2 Modifications
+
 XXX Changes to files in F<pod/> go here.  Consider grouping entries by
 file and be sure to link to the appropriate page, e.g. L<perlfunc>.
 
+=head3 perlre
+
+=over 4
+
+=item *
+
+Minor fix to a multiple scalar match example.
+
+=back
+
 =head2 New Documentation
 
 XXX Changes which create B<new> files in F<pod/> go here.

diff --git a/pod/perlre.pod b/pod/perlre.pod
index 98aafdd..de5b719 100644 (file)
--- a/pod/perlre.pod
+++ b/pod/perlre.pod
@@ -363,11 +363,11 @@ not counted when determining the length of the match. Thus the following
 will not match forever:
 X<\G>
 
-    $str = 'ABC';
-    pos($str) = 1;
-    while (/.\G/g) {
-        print $&;
-    }
+     my $string = 'ABC';
+     pos($string) = 1;
+     while ($string =~ /(.\G)/g) {
+         print $1;
+     }
 
 It will print 'A' and then terminate, as it considers the match to
 be zero-width, and thus will not match at the same position twice in a