From e8e3635e321a3d3ac3b355d31c5d04e1a479615f Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 16 Feb 2009 21:16:21 +0000
Subject: 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.

---
 perl.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl.c')

diff --git a/perl.c b/perl.c
index a56ab03009..76cee05416 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) {
-- 
cgit v1.2.1