From da0334e84bccb9964f9752cf3ad04aa2ccff66b3 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Fri, 1 Aug 2014 09:46:12 -0600 Subject: [PATCH] Use constant now defined for ESC This avoids a runtime translation --- regcomp.c | 4 ++-- toke.c | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/regcomp.c b/regcomp.c index 991d2f8..96fa3aa 100644 --- a/regcomp.c +++ b/regcomp.c @@ -11887,7 +11887,7 @@ tryagain: p++; break; case 'e': - ender = ASCII_TO_NATIVE('\033'); + ender = ESC_NATIVE; p++; break; case 'a': @@ -13705,7 +13705,7 @@ parseit: case 't': value = '\t'; break; case 'f': value = '\f'; break; case 'b': value = '\b'; break; - case 'e': value = ASCII_TO_NATIVE('\033');break; + case 'e': value = ESC_NATIVE; break; case 'a': value = '\a'; break; case 'o': RExC_parse--; /* function expects to be pointed at the 'o' */ diff --git a/toke.c b/toke.c index be4c8a5..d2e9eee 100644 --- a/toke.c +++ b/toke.c @@ -3496,7 +3496,7 @@ S_scan_const(pTHX_ char *start) *d++ = '\t'; break; case 'e': - *d++ = ASCII_TO_NATIVE('\033'); + *d++ = ESC_NATIVE; break; case 'a': *d++ = '\a'; -- 1.8.3.1