From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 30 Jun 2005 11:20:33 +0000 (+0000)
Subject: Why use Perl_form and newSVpv when newSVpvf will do it in one?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e6830b1398c4e7ce4800aa72b564ebd81702e14c;p=p5sagit%2Fp5-mst-13.2.git

Why use Perl_form and newSVpv when newSVpvf will do it in one?

p4raw-id: //depot/perl@25021
---

diff --git a/perl.c b/perl.c
index cb82691..e573425 100644
--- a/perl.c
+++ b/perl.c
@@ -332,12 +332,8 @@ perl_construct(pTHXx)
 
     PL_stashcache = newHV();
 
-    PL_patchlevel = newSVpv(
-	    Perl_form(aTHX_ "%d.%d.%d",
-	    (int)PERL_REVISION,
-	    (int)PERL_VERSION,
-	    (int)PERL_SUBVERSION ), 0
-    );
+    PL_patchlevel = Perl_newSVpvf(aTHX_ "%d.%d.%d", (int)PERL_REVISION,
+				  (int)PERL_VERSION, (int)PERL_SUBVERSION);
 
 #ifdef HAS_MMAP
     if (!PL_mmap_page_size) {