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 | d38487415f5c04a655b8d9a86fe64aa945ae1cba (patch) | |
| tree | 4a6b0c4e5e46e0c140f62258924e4983d0b15521 /regexec.c | |
| parent | d6d0e86e2a8517b0818bacf1527a279e85266d73 (diff) | |
| download | perl-d38487415f5c04a655b8d9a86fe64aa945ae1cba.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); |