From: Hugo van der Sanden <hv@crypt.org>
Date: Wed, 26 Jun 2002 18:43:18 +0000 (+0100)
Subject: Re: Another Unicode s/// buglet?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d38487415f5c04a655b8d9a86fe64aa945ae1cba;p=p5sagit%2Fp5-mst-13.2.git

Re: Another Unicode s/// buglet?
Message-Id: <200206261743.g5QHhIC27702@crypt.compulink.co.uk>

p4raw-id: //depot/perl@17365
---

diff --git a/regexec.c b/regexec.c
index 002112f..edbcd25 100644
--- a/regexec.c
+++ b/regexec.c
@@ -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);