Make Perl_sv_utf8_upgrade* respect nomg

One of the code paths in Perl_sv_utf8_upgrade_flags_grow() calls
SvPV_force(), regardless of whether the SV_GMAGIC flag is set or not,
which triggers an unconditional magic get.

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 6e8e5f3e91..e7a216f773 100644
--- a/sv.c
+++ b/sv.c
@@ -3223,7 +3223,7 @@ Perl_sv_utf8_upgrade_flags_grow(pTHX_ register SV *const sv, const I32 flags, ST
 		return len;
 	    }
 	} else {
-	    (void) SvPV_force(sv,len);
+	    (void) SvPV_force_flags(sv,len,flags & SV_GMAGIC);
 	}
     }