diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-06-08 10:08:01 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-06-08 10:08:01 +0000 |
| commit | f8c7b90fa8a3676239aeea262e148f9a4e497558 (patch) | |
| tree | 2bd92ea6dd787a91993da91818f00e45c79399e6 /regcomp.c | |
| parent | 1a4fad37125bac3e69c02ee6b2e57c14777484e6 (diff) | |
| download | perl-f8c7b90fa8a3676239aeea262e148f9a4e497558.tar.gz | |
s/PERL_COPY_ON_WRITE/PERL_OLD_COPY_ON_WRITE/g
p4raw-id: //depot/perl@24755
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2900,7 +2900,7 @@ Perl_pregcomp(pTHX_ char *exp, char *xend, PMOP *pm) r->prelen = xend - exp; r->precomp = savepvn(RExC_precomp, r->prelen); r->subbeg = NULL; -#ifdef PERL_COPY_ON_WRITE +#ifdef PERL_OLD_COPY_ON_WRITE r->saved_copy = Nullsv; #endif r->reganch = pm->op_pmflags & PMf_COMPILETIME; @@ -6156,7 +6156,7 @@ Perl_pregfree(pTHX_ struct regexp *r) if (r->offsets) /* 20010421 MJD */ Safefree(r->offsets); RX_MATCH_COPY_FREE(r); -#ifdef PERL_COPY_ON_WRITE +#ifdef PERL_OLD_COPY_ON_WRITE if (r->saved_copy) SvREFCNT_dec(r->saved_copy); #endif @@ -6338,7 +6338,7 @@ Perl_save_re_context(pTHX) PL_reg_oldsaved = Nullch; SAVEI32(PL_reg_oldsavedlen); /* old length of saved substr during match */ PL_reg_oldsavedlen = 0; -#ifdef PERL_COPY_ON_WRITE +#ifdef PERL_OLD_COPY_ON_WRITE SAVESPTR(PL_nrs); PL_nrs = Nullsv; #endif |