diff options
| -rw-r--r-- | pod/perlre.pod | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/pod/perlre.pod b/pod/perlre.pod index f0d7645353..bc5e7c914d 100644 --- a/pod/perlre.pod +++ b/pod/perlre.pod @@ -1282,6 +1282,8 @@ this: sub invalid { die "/$_[0]/: invalid escape '\\$_[1]'"} + # We must also take care of not escaping the legitimate \\Y| + # sequence, hence the presence of '\\' in the conversion rules. my %rules = ( '\\' => '\\\\', 'Y|' => qr/(?=\S)(?<!\S)|(?!\S)(?<=\S)/ ); sub convert { |