Re: [ID 20000825.019] Not OK: perl v5.7.0 +SUIDMAIL +DEVEL6820 on alpha-dec_osf 5...

Message-Id: <200008252312.TAA17828@leggy.zk3.dec.com>

p4raw-id: //depot/perl@6828

diff --git a/gv.c b/gv.c
index 6dc45e7..8cf40c7 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -903,9 +903,16 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type)
        if (len == 1) {
            SV *sv = GvSV(gv);
            (void)SvUPGRADE(sv, SVt_PVNV);
+           Perl_sv_setpvf(aTHX_ sv,
+#if defined(PERL_SUBVERSION) && (PERL_SUBVERSION > 0)
+                           "%8.6"
+#else
+                           "%5.3"
+#endif
+                           NVff,
+                           SvNVX(PL_patchlevel));
            SvNVX(sv) = SvNVX(PL_patchlevel);
            SvNOK_on(sv);
-           (void)SvPV_nolen(sv);
            SvREADONLY_on(sv);
        }
        break;