Use pvs macros instead of pvn where possible.

[perl5.git] / universal.c

diff --git a/universal.c b/universal.c
index 3745ff9..bf82ae5 100644 (file)
--- a/universal.c
+++ b/universal.c
@@ -504,7 +504,7 @@ XS(XS_version_new)
        if ( items == 1 || vs == &PL_sv_undef ) { /* no param or explicit undef */
            /* create empty object */
            vs = sv_newmortal();
-           sv_setpvn(vs,"",0);
+           sv_setpvs(vs,"");
        }
        else if ( items == 3 ) {
            vs = sv_newmortal();