This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
sv.c: One less assignment in sv_pvutf8n_force
[perl5.git] / sv.c
diff --git a/sv.c b/sv.c
index 641b56f..c446fba 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -9122,7 +9122,7 @@ Perl_sv_pvutf8n_force(pTHX_ SV *const sv, STRLEN *const lp)
 {
     PERL_ARGS_ASSERT_SV_PVUTF8N_FORCE;
 
-    sv_pvn_force(sv,lp);
+    sv_pvn_force(sv,0);
     sv_utf8_upgrade_nomg(sv);
     *lp = SvCUR(sv);
     return SvPVX(sv);