summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2008-01-05 17:44:04 +0000
committerNicholas Clark <nick@ccl4.org>2008-01-05 17:44:04 +0000
commit5daac39cdfb40a97f596516dfd1504833f0b6695 (patch)
treefebf1ff899723b083b260949befa8daa55bc5150 /regexec.c
parent8f6ae13c8af6db5c57cde14346d77d89a10817d3 (diff)
downloadperl-5daac39cdfb40a97f596516dfd1504833f0b6695.tar.gz
Convert all accesses of the member paren_names of struct regexp to
be accessed via RXp_PAREN_NAMES(). (They are entirely within the regexp implementation). p4raw-id: //depot/perl@32853
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/regexec.c b/regexec.c
index dfe71f7977..e6527f5129 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2150,8 +2150,8 @@ got_it:
if (PL_reg_eval_set)
restore_pos(aTHX_ prog);
- if (prog->paren_names)
- (void)hv_iterinit(prog->paren_names);
+ if (RXp_PAREN_NAMES(prog))
+ (void)hv_iterinit(RXp_PAREN_NAMES(prog));
/* make sure $`, $&, $', and $digit will work later */
if ( !(flags & REXEC_NOT_FIRST) ) {