diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-13 14:25:13 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-13 14:25:13 +0000 |
| commit | 575cc754ffbe6f378abac3e2b10d2cfce149a6a0 (patch) | |
| tree | b0866deca25163e192e8d614d138e4226bdc1fbb /pod/perlfaq6.pod | |
| parent | 084592ab0b76f3cbd4d089afb08ccea7ba1c9dd8 (diff) | |
| download | perl-575cc754ffbe6f378abac3e2b10d2cfce149a6a0.tar.gz | |
FAQ updates from Chris Fedde <chris@fedde.littleton.co.us>.
p4raw-id: //depot/perl@8793
Diffstat (limited to 'pod/perlfaq6.pod')
| -rw-r--r-- | pod/perlfaq6.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlfaq6.pod b/pod/perlfaq6.pod index 5100c351e8..ed6c01b31b 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) |