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 /regexp.h | |
| 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 'regexp.h')
| -rw-r--r-- | regexp.h | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -387,6 +387,7 @@ and check for NULL. #define RX_LASTPAREN(prog) (((struct regexp *)SvANY(prog))->lastparen) #define RX_LASTCLOSEPAREN(prog) (((struct regexp *)SvANY(prog))->lastcloseparen) #define RX_SEEN_EVALS(prog) (((struct regexp *)SvANY(prog))->seen_evals) +#define RX_SAVED_COPY(prog) (((struct regexp *)SvANY(prog))->saved_copy) #endif /* PLUGGABLE_RE_EXTENSION */ @@ -394,8 +395,8 @@ and check for NULL. #ifdef PERL_OLD_COPY_ON_WRITE #define RX_MATCH_COPY_FREE(rx) \ - STMT_START {if (rx->saved_copy) { \ - SV_CHECK_THINKFIRST_COW_DROP(rx->saved_copy); \ + STMT_START {if (RX_SAVED_COPY(rx)) { \ + SV_CHECK_THINKFIRST_COW_DROP(RX_SAVED_COPY(rx)); \ } \ if (RX_MATCH_COPIED(rx)) { \ Safefree(RX_SUBBEG(rx)); \ |