diff options
author | Karl Williamson <public@khwilliamson.com> | 2012-06-16 20:02:07 -0600 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-08-02 09:24:52 -0600 |
commit | 59f4a9a341b78358835e8023bd17b6faaf0d1186 (patch) | |
tree | 3b64a2f81ea725d869886df5151e3fbcf1e98087 /regcomp.c | |
parent | 4fa352c88e0cce67dac885937735609cff04a59e (diff) | |
download | perl-59f4a9a341b78358835e8023bd17b6faaf0d1186.tar.gz |
regcomp.c: Rename static fcn to better reflect its purpose
This function handles \N of any ilk, not just named sequences.
Diffstat (limited to 'regcomp.c')
-rw-r--r-- | regcomp.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -9579,7 +9579,7 @@ S_regpiece(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth) } -/* reg_namedseq(pRExC_state,UVp, UV depth) +/* grok_bslash_N(pRExC_state,UVp, UV depth) This is expected to be called by a parser routine that has recognized '\N' and needs to handle the rest. RExC_parse is @@ -9622,7 +9622,7 @@ S_regpiece(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth) Parsing failures will generate a fatal error via vFAIL(...) */ STATIC regnode * -S_reg_namedseq(pTHX_ RExC_state_t *pRExC_state, UV *valuep, I32 *flagp, U32 depth) +S_grok_bslash_N(pTHX_ RExC_state_t *pRExC_state, UV *valuep, I32 *flagp, U32 depth) { char * endbrace; /* '}' following the name */ regnode *ret = NULL; @@ -9630,7 +9630,7 @@ S_reg_namedseq(pTHX_ RExC_state_t *pRExC_state, UV *valuep, I32 *flagp, U32 dept GET_RE_DEBUG_FLAGS_DECL; - PERL_ARGS_ASSERT_REG_NAMEDSEQ; + PERL_ARGS_ASSERT_GROK_BSLASH_N; GET_RE_DEBUG_FLAGS; @@ -10249,7 +10249,7 @@ tryagain: Also this makes sure that things like /\N{BLAH}+/ and \N{BLAH} being multi char Just Happen. dmq*/ ++RExC_parse; - ret= reg_namedseq(pRExC_state, NULL, flagp, depth); + ret= grok_bslash_N(pRExC_state, NULL, flagp, depth); break; case 'k': /* Handle \k<NAME> and \k'NAME' */ parse_named_seq: @@ -11277,7 +11277,7 @@ parseit: from earlier versions, OTOH that behaviour was broken as well. */ UV v; /* value is register so we cant & it /grrr */ - if (reg_namedseq(pRExC_state, &v, NULL, depth)) { + if (grok_bslash_N(pRExC_state, &v, NULL, depth)) { goto parseit; } value= v; |