diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-05 00:59:18 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-05 00:59:18 +0000 |
| commit | bdd9a1b1ec56a0b6b7d8b1b363138a8fbd3040e3 (patch) | |
| tree | efcc7cd1542d30e907017756994149ef9e70a601 /pp_ctl.c | |
| parent | 7a4bba223aa750dd886fe6a2fddef224e59c717f (diff) | |
| download | perl-bdd9a1b1ec56a0b6b7d8b1b363138a8fbd3040e3.tar.gz | |
Fix the compile for -DPERL_OLD_COPY_ON_WRITE (apart from the tenacious
broken window: ../ext/Compress/Raw/Zlib/t/07bufsize.t)
p4raw-id: //depot/perl@32837
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -330,8 +330,8 @@ Perl_rxres_save(pTHX_ void **rsp, REGEXP *rx) RX_MATCH_COPIED_off(rx); #ifdef PERL_OLD_COPY_ON_WRITE - *p++ = PTR2UV(rx->saved_copy); - rx->saved_copy = NULL; + *p++ = PTR2UV(RX_SAVED_COPY(rx)); + RX_SAVED_COPY(rx) = NULL; #endif *p++ = RX_NPARENS(rx); @@ -356,9 +356,9 @@ Perl_rxres_restore(pTHX_ void **rsp, REGEXP *rx) *p++ = 0; #ifdef PERL_OLD_COPY_ON_WRITE - if (rx->saved_copy) - SvREFCNT_dec (rx->saved_copy); - rx->saved_copy = INT2PTR(SV*,*p); + if (RX_SAVED_COPY(rx)) + SvREFCNT_dec (RX_SAVED_COPY(rx)); + RX_SAVED_COPY(rx) = INT2PTR(SV*,*p); *p++ = 0; #endif |