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

p4raw-id: //depot/perl@25021

1 files changed, 2 insertions, 6 deletions

diff --git a/perl.c b/perl.c
index cb82691e50..e573425f1d 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) {