From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 5 Oct 2009 19:04:13 +0000 (+0200)
Subject: In Perl_moreswitches(), merge 2 string constants in the code implementing -v.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9f28b43c85ae4811b0768bb37378b21550f27c7d;p=p5sagit%2Fp5-mst-13.2.git

In Perl_moreswitches(), merge 2 string constants in the code implementing -v.
---

diff --git a/perl.c b/perl.c
index 7a1db7c..2c51286 100644
--- a/perl.c
+++ b/perl.c
@@ -3224,9 +3224,8 @@ Perl_moreswitches(pTHX_ const char *s)
  #endif
 	    PerlIO_printf(PerlIO_stdout(),
 		"\nThis is perl, %"SVf
-		" built for %s",
-		level,
-		ARCHNAME);
+		" built for " ARCHNAME,
+		level);
 	    SvREFCNT_dec(level);
 	}
 #else /* DGUX */