diff options
| author | Ben Morrow <ben@morrow.me.uk> | 2009-10-22 23:17:51 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2009-10-22 23:17:51 +0200 |
| commit | f0826785082983bd9b5ba16476c6867f3b390fb9 (patch) | |
| tree | f9b18510046eacdecbfaca3f2cefbd5ca2865b83 /embed.h | |
| parent | dc35ab6e9838269debf9973a573bbd31031f3f31 (diff) | |
| download | perl-f0826785082983bd9b5ba16476c6867f3b390fb9.tar.gz | |
RT#69616: regexp SVs lose regexpness in assignment
It uses reg_temp_copy to copy the REGEXP onto the destination SV without
needing to copy the underlying pattern structure. This means changing
the prototype of reg_temp_copy, so it can copy onto a passed-in SV, but
it isn't API (and probably shouldn't be exported) so I don't think this
is a problem.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3089,7 +3089,7 @@ #define pregfree(a) Perl_pregfree(aTHX_ a) #define pregfree2(a) Perl_pregfree2(aTHX_ a) #if defined(PERL_CORE) || defined(PERL_EXT) -#define reg_temp_copy(a) Perl_reg_temp_copy(aTHX_ a) +#define reg_temp_copy(a,b) Perl_reg_temp_copy(aTHX_ a,b) #endif #define regfree_internal(a) Perl_regfree_internal(aTHX_ a) #if defined(USE_ITHREADS) |