From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 11 Jan 2008 18:03:18 +0000 (+0000)
Subject: __DATE__ and __TIME__ are both string literals, so we can concatentate
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=895aa832c42328fe103a78a829d7dcfa39731ca7;p=p5sagit%2Fp5-mst-13.2.git

__DATE__ and __TIME__ are both string literals, so we can concatentate
them, rather than formating them via %s.

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

diff --git a/perl.c b/perl.c
index e8821a5..84b7d4e 100644
--- a/perl.c
+++ b/perl.c
@@ -1880,12 +1880,10 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 				   "\"  Built under %s\\n",OSNAME);
 #ifdef __DATE__
 #  ifdef __TIME__
-		    Perl_sv_catpvf(aTHX_ opts_prog,
-				   "  Compiled at %s %s\\n\"",__DATE__,
-				   __TIME__);
+		    sv_catpvs(opts_prog,
+			      "  Compiled at " __DATE__ " " __TIME__ "\\n\"");
 #  else
-		    Perl_sv_catpvf(aTHX_ opts_prog,"  Compiled on %s\\n\"",
-				   __DATE__);
+		    sv_catpvs(opts_prog, "  Compiled on " __DATE__ "\\n\"");
 #  endif
 #endif
 		    sv_catpvs(opts_prog, "; $\"=\"\\n    \"; "