diff options
author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2002-12-18 09:30:32 +0100 |
---|---|---|
committer | hv <hv@crypt.org> | 2003-01-21 00:04:14 +0000 |
commit | 00d6e12193736c2d996b3a0d7435db004a77dbae (patch) | |
tree | 76b82ed0dba2bbfe05766ab0107682859bf4a239 /perl.c | |
parent | ae7638f4d1ab4edf2eef64922c6d042904d21153 (diff) | |
download | perl-00d6e12193736c2d996b3a0d7435db004a77dbae.tar.gz |
perl version reporting
From: "H.Merijn Brand" <h.m.brand@hccnet.nl>
Message-Id: <20021218081957.ABD8.H.M.BRAND@hccnet.nl>
p4raw-id: //depot/perl@18527
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 9 |
1 files changed, 3 insertions, 6 deletions
@@ -216,12 +216,9 @@ perl_construct(pTHXx) *s = '\0'; SvCUR_set(PL_patchlevel, s - (U8*)SvPVX(PL_patchlevel)); SvPOK_on(PL_patchlevel); - SvNVX(PL_patchlevel) = (NV)PERL_REVISION - + ((NV)PERL_VERSION / (NV)1000) -#if defined(PERL_SUBVERSION) && PERL_SUBVERSION > 0 - + ((NV)PERL_SUBVERSION / (NV)1000000) -#endif - ; + SvNVX(PL_patchlevel) = (NV)PERL_REVISION + + ((NV)PERL_VERSION / (NV)1000) + + ((NV)PERL_SUBVERSION / (NV)1000000); SvNOK_on(PL_patchlevel); /* dual valued */ SvUTF8_on(PL_patchlevel); SvREADONLY_on(PL_patchlevel); |