diff options
| author | Nicholas Clark <nick@ccl4.org> | 2003-02-09 23:00:09 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-02-16 13:10:32 +0000 |
| commit | ed25273444c5542e4865fbe422e026b78ba33b80 (patch) | |
| tree | 50ed9058a0a221c3334b958f8a0d3b50ed089213 /embed.h | |
| parent | 8c4d3c904bc47216a128a948cce979bf46eb0682 (diff) | |
| download | perl-ed25273444c5542e4865fbe422e026b78ba33b80.tar.gz | |
COW regexps:
Subject: [PATCH] Copy on write for $& and $1...
Message-ID: <20030209230008.GF299@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@18726
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -2030,6 +2030,9 @@ #define sv_copypv Perl_sv_copypv #define my_atof2 Perl_my_atof2 #define my_socketpair Perl_my_socketpair +#ifdef PERL_COPY_ON_WRITE +#define sv_setsv_cow Perl_sv_setsv_cow +#endif #if defined(USE_PERLIO) && !defined(USE_SFIO) #define PerlIO_close Perl_PerlIO_close #define PerlIO_fill Perl_PerlIO_fill @@ -4477,6 +4480,9 @@ #define sv_copypv(a,b) Perl_sv_copypv(aTHX_ a,b) #define my_atof2(a,b) Perl_my_atof2(aTHX_ a,b) #define my_socketpair Perl_my_socketpair +#ifdef PERL_COPY_ON_WRITE +#define sv_setsv_cow(a,b) Perl_sv_setsv_cow(aTHX_ a,b) +#endif #if defined(USE_PERLIO) && !defined(USE_SFIO) #define PerlIO_close(a) Perl_PerlIO_close(aTHX_ a) #define PerlIO_fill(a) Perl_PerlIO_fill(aTHX_ a) |