From 6a6ba9661bf06ddc519d0e169bf0c536cab12b7e Mon Sep 17 00:00:00 2001 From: Spider Boardman Date: Fri, 25 Aug 2000 15:12:40 -0400 Subject: [PATCH] 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 --- gv.c | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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; -- 2.7.4