summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2010-09-28 14:44:08 -0600
committerFather Chrysostomos <sprout@cpan.org>2010-09-28 15:36:37 -0700
commitca67da414cee8e3361276f1f6268ca488126da08 (patch)
treeb2d52e98cdf21e176a073008600ecc3c31f409ef /regcomp.c
parent70eadc36be15a2576561830a2c1b077d308db7de (diff)
downloadperl-ca67da414cee8e3361276f1f6268ca488126da08.tar.gz
regcomp.c [perl #78058] qr/\18/ loops
This patch restores the behavior of /\18/ to mean /\0018/, which was inadvertently changed by c99e91e919b4bb89bab7829a9026ee01b1fff2a1. This bug happens when t the first digit is [1-9], and the second [89].
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/regcomp.c b/regcomp.c
index ff9f87b079..bcdc65f2d8 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -7601,7 +7601,7 @@ tryagain:
case '0': case '1': case '2': case '3':case '4':
case '5': case '6': case '7': case '8':case '9':
if (*p == '0' ||
- (isOCTAL(p[1]) && atoi(p) >= RExC_npar))
+ (isDIGIT(p[1]) && atoi(p) >= RExC_npar))
{
I32 flags = PERL_SCAN_SILENT_ILLDIGIT;
STRLEN numlen = 3;