From: Karl Williamson <khw@cpan.org>
Date: Fri, 1 Aug 2014 15:46:12 +0000 (-0600)
Subject: Use constant now defined for ESC
X-Git-Tag: v5.21.4~610
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/da0334e84bccb9964f9752cf3ad04aa2ccff66b3?ds=sidebyside

Use constant now defined for ESC

This avoids a runtime translation
---

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';