diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-06-26 19:43:18 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-26 18:01:09 +0000 |
| commit | 76009fc1a8ef5ba09ce8a77ed0f1fe3c8f0096a0 (patch) | |
| tree | 4a6b0c4e5e46e0c140f62258924e4983d0b15521 /regexec.c | |
| parent | 0e01f505ba0c0c96037b390a9a3e2b3c3e45e936 (diff) | |
| download | perl-76009fc1a8ef5ba09ce8a77ed0f1fe3c8f0096a0.tar.gz | |
Re: Another Unicode s/// buglet?
Message-Id: <200206261743.g5QHhIC27702@crypt.compulink.co.uk>
p4raw-id: //depot/perl@17365
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -4526,7 +4526,7 @@ S_to_utf8_substr(pTHX_ register regexp *prog) SV* sv; if (prog->float_substr && !prog->float_utf8) { prog->float_utf8 = sv = NEWSV(117, 0); - SvSetMagicSV(sv, prog->float_substr); + SvSetSV(sv, prog->float_substr); sv_utf8_upgrade(sv); if (SvTAIL(prog->float_substr)) SvTAIL_on(sv); @@ -4535,7 +4535,7 @@ S_to_utf8_substr(pTHX_ register regexp *prog) } if (prog->anchored_substr && !prog->anchored_utf8) { prog->anchored_utf8 = sv = NEWSV(118, 0); - SvSetMagicSV(sv, prog->anchored_substr); + SvSetSV(sv, prog->anchored_substr); sv_utf8_upgrade(sv); if (SvTAIL(prog->anchored_substr)) SvTAIL_on(sv); @@ -4550,7 +4550,7 @@ S_to_byte_substr(pTHX_ register regexp *prog) SV* sv; if (prog->float_utf8 && !prog->float_substr) { prog->float_substr = sv = NEWSV(117, 0); - SvSetMagicSV(sv, prog->float_utf8); + SvSetSV(sv, prog->float_utf8); if (sv_utf8_downgrade(sv, TRUE)) { if (SvTAIL(prog->float_utf8)) SvTAIL_on(sv); @@ -4563,7 +4563,7 @@ S_to_byte_substr(pTHX_ register regexp *prog) } if (prog->anchored_utf8 && !prog->anchored_substr) { prog->anchored_substr = sv = NEWSV(118, 0); - SvSetMagicSV(sv, prog->anchored_utf8); + SvSetSV(sv, prog->anchored_utf8); if (sv_utf8_downgrade(sv, TRUE)) { if (SvTAIL(prog->anchored_utf8)) SvTAIL_on(sv); |