diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-01-05 17:44:04 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-01-05 17:44:04 +0000 |
commit | 5daac39cdfb40a97f596516dfd1504833f0b6695 (patch) | |
tree | febf1ff899723b083b260949befa8daa55bc5150 /regexec.c | |
parent | 8f6ae13c8af6db5c57cde14346d77d89a10817d3 (diff) | |
download | perl-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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) ) { |