In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/e8e3635e321a3d3ac3b355d31c5d04e1a479615f?hp=eb3b8c7b72e00b81a8275631f24b2ce779cfa8f0>
- Log -----------------------------------------------------------------
commit e8e3635e321a3d3ac3b355d31c5d04e1a479615f
Author: Nicholas Clark <n...@ccl4.org>
Date: Mon Feb 16 21:16:21 2009 +0000
Replace *printf "%d.%d.%d", PERL_REVISION, PERL_VERSION, PERL_SUBVERSION
with PERL_VERSION_STRING, which can be determined at compile time, as a
constant string.
-----------------------------------------------------------------------
Summary of changes:
patchlevel.h | 4 ++++
perl.c | 3 +--
2 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/patchlevel.h b/patchlevel.h
index 885643f..207c492 100644
--- a/patchlevel.h
+++ b/patchlevel.h
@@ -17,6 +17,10 @@
#define PERL_VERSION 11 /* epoch */
#define PERL_SUBVERSION 0 /* generation */
+#define PERL_VERSION_STRING STRINGIFY(PERL_REVISION) "." \
+ STRINGIFY(PERL_VERSION) "." \
+ STRINGIFY(PERL_SUBVERSION)
+
/* The following numbers describe the earliest compatible version of
Perl ("compatibility" here being defined as sufficient binary/API
compatibility to run XS code built with the older version).
diff --git a/perl.c b/perl.c
index a56ab03..76cee05 100644
--- a/perl.c
+++ b/perl.c
@@ -347,8 +347,7 @@ perl_construct(pTHXx)
PL_stashcache = newHV();
- PL_patchlevel = Perl_newSVpvf(aTHX_ "v%d.%d.%d", (int)PERL_REVISION,
- (int)PERL_VERSION, (int)PERL_SUBVERSION);
+ PL_patchlevel = newSVpvs("v" PERL_VERSION_STRING);
#ifdef HAS_MMAP
if (!PL_mmap_page_size) {
--
Perl5 Master Repository
