diff options
| author | Ævar Arnfjörð Bjarmason <avar@cpan.org> | 2007-04-21 21:30:47 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-23 09:39:38 +0000 |
| commit | 3ab4a224eb8d34c041977288575d251ee18f009f (patch) | |
| tree | 3f95471c1ad1e1dc9e59e85e81615c9a477fe8db /regexec.c | |
| parent | e1d1eefb8c88e0dcaf2bb9e6c04d7f6192be966f (diff) | |
| download | perl-3ab4a224eb8d34c041977288575d251ee18f009f.tar.gz | |
Re: [PATCH (incomplete)] Make regcomp use SV* sv, instead of char* exp, char* xend
Message-ID: <51dd1af80704211430m6ad1b4afy49b069faa61e33a9@mail.gmail.com>
p4raw-id: //depot/perl@31027
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -3698,13 +3698,11 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) re = reg_temp_copy((regexp *)mg->mg_obj); /*XXX:dmq*/ } else { - STRLEN len; - const char * const t = SvPV_const(ret, len); U32 pm_flags = 0; const I32 osize = PL_regsize; if (DO_UTF8(ret)) pm_flags |= RXf_UTF8; - re = CALLREGCOMP((char*)t, (char*)t + len, pm_flags); + re = CALLREGCOMP(ret, pm_flags); if (!(SvFLAGS(ret) & (SVs_TEMP | SVs_PADTMP | SVf_READONLY | SVs_GMG))) |