diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-04-02 15:40:15 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-04-02 15:40:15 +0000 |
| commit | b6d5fef8cdb4285e43c5a333b488b349d2c28bd9 (patch) | |
| tree | a3b43c76a939abb4259c146984ae5f1ab41ba79e /toke.c | |
| parent | 88be34b600bd4d61923762dd138558270cb4d3f1 (diff) | |
| download | perl-b6d5fef8cdb4285e43c5a333b488b349d2c28bd9.tar.gz | |
Fix bug #27940 : \cX escapes weren't working correctly in regular
expression ranges.
p4raw-id: //depot/perl@22641
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1220,7 +1220,7 @@ S_scan_const(pTHX_ char *start) const char *leaveit = /* set of acceptably-backslashed characters */ PL_lex_inpat - ? "\\.^$@AGZdDwWsSbBpPXC+*?|()-nrtfeaxcz0123456789[{]} \t\n\r\f\v#" + ? "\\.^$@AGZdDwWsSbBpPXC+*?|()-nrtfeaxz0123456789[{]} \t\n\r\f\v#" : ""; if (PL_lex_inwhat == OP_TRANS && PL_sublex_info.sub_op) { |