This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Grab latest changes from CPAN 0.9905
[perl5.git] / vxs.inc
diff --git a/vxs.inc b/vxs.inc
index 78b1fef..cb894f2 100644 (file)
--- a/vxs.inc
+++ b/vxs.inc
@@ -418,7 +418,7 @@ VXS(version_qv)
        }
        if ( !SvVOK(ver) ) { /* not already a v-string */
            rv = sv_newmortal();
        }
        if ( !SvVOK(ver) ) { /* not already a v-string */
            rv = sv_newmortal();
-           sv_setsv(rv,ver); /* make a duplicate */
+           SvSetSV_nosteal(rv,ver); /* make a duplicate */
            UPG_VERSION(rv, TRUE);
        } else {
            rv = sv_2mortal(NEW_VERSION(ver));
            UPG_VERSION(rv, TRUE);
        } else {
            rv = sv_2mortal(NEW_VERSION(ver));