From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 16 Feb 2009 21:16:21 +0000 (+0000)
Subject: Replace *printf "%d.%d.%d", PERL_REVISION, PERL_VERSION, PERL_SUBVERSION
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e8e3635e321a3d3ac3b355d31c5d04e1a479615f;p=p5sagit%2Fp5-mst-13.2.git

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

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