From 00d6e12193736c2d996b3a0d7435db004a77dbae Mon Sep 17 00:00:00 2001 From: "H.Merijn Brand" Date: Wed, 18 Dec 2002 09:30:32 +0100 Subject: [PATCH] perl version reporting From: "H.Merijn Brand" Message-Id: <20021218081957.ABD8.H.M.BRAND@hccnet.nl> p4raw-id: //depot/perl@18527 --- perl.c | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/perl.c b/perl.c index 3493cd8..0abde46 100644 --- a/perl.c +++ b/perl.c @@ -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); -- 2.7.4