From: Spider Boardman <spider@orb.nashua.nh.us>
Date: Fri, 25 Aug 2000 19:12:40 +0000 (-0400)
Subject: Re: [ID 20000825.019] Not OK: perl v5.7.0 +SUIDMAIL +DEVEL6820 on alpha-dec_osf 5... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6a6ba9661bf06ddc519d0e169bf0c536cab12b7e;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20000825.019] Not OK: perl v5.7.0 +SUIDMAIL +DEVEL6820 on alpha-dec_osf 5.1 (UNINSTALLED)
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
--- 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;