diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-01-11 18:03:18 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-01-11 18:03:18 +0000 |
commit | 895aa832c42328fe103a78a829d7dcfa39731ca7 (patch) | |
tree | 24c1e090114d774ae6f712cb03ed4c70c6bbceeb /perl.c | |
parent | 402d2eb1990caf116b392579a55f0a4f317d2738 (diff) | |
download | perl-895aa832c42328fe103a78a829d7dcfa39731ca7.tar.gz |
__DATE__ and __TIME__ are both string literals, so we can concatentate
them, rather than formating them via %s.
p4raw-id: //depot/perl@32960
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 8 |
1 files changed, 3 insertions, 5 deletions
@@ -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 \"; " |