X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlfaq6.pod;h=ed6c01b31b1812e067434aebd15fe727a8ef2ae7;hb=679ac26e110ef97fbf30ce13479d7051699b4a34;hp=5100c351e8cf769f5788c965a0435b10242b8153;hpb=f9ac83b89cf3e02893d98f0e963cc97ab060f8f1;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/perlfaq6.pod b/pod/perlfaq6.pod
index 5100c35..ed6c01b 100644
--- a/pod/perlfaq6.pod
+++ b/pod/perlfaq6.pod
@@ -186,7 +186,7 @@ properties of bitwise xor on ASCII strings.
     $old = 'test';
     $new = 'success';
 
-    s{(\Q$old\E}
+    s{(\Q$old\E)}
      { uc $new | (uc $1 ^ $1) .
 	(uc(substr $1, -1) ^ substr $1, -1) x
 	    (length($new) - length $1)