This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl version reporting
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Wed, 18 Dec 2002 08:30:32 +0000 (09:30 +0100)
committerhv <hv@crypt.org>
Tue, 21 Jan 2003 00:04:14 +0000 (00:04 +0000)
From: "H.Merijn Brand" <h.m.brand@hccnet.nl>
Message-Id: <20021218081957.ABD8.H.M.BRAND@hccnet.nl>

p4raw-id: //depot/perl@18527

perl.c

diff --git a/perl.c b/perl.c
index 3493cd8..0abde46 100644 (file)
--- 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);