Use sv_setpvn where we know the length.

p4raw-id: //depot/perl@25030

diff --git a/universal.c b/universal.c
index ad80a21..507ab14 100644 (file)
--- a/universal.c
+++ b/universal.c
@@ -418,7 +418,7 @@ XS(XS_version_new)
            else {
                /* create empty object */
                vs = sv_newmortal();
-               sv_setpv(vs,"");
+               sv_setpvn(vs,"",0);
            }
        }
        else if ( items == 3 ) {