diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2000-08-25 15:12:40 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-26 03:05:14 +0000 |
| commit | 6a6ba9661bf06ddc519d0e169bf0c536cab12b7e (patch) | |
| tree | 08b1a679ff63f22da74e2c933003c3ba05dc5d2a /gv.c | |
| parent | 9db5a202456c4160bf9108553745252960c7c050 (diff) | |
| download | perl-6a6ba9661bf06ddc519d0e169bf0c536cab12b7e.tar.gz | |
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
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -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; |