From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Wed, 18 Dec 2002 08:30:32 +0000 (+0100)
Subject: perl version reporting
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=00d6e12193736c2d996b3a0d7435db004a77dbae;p=p5sagit%2Fp5-mst-13.2.git

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
---

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);