From 9f28b43c85ae4811b0768bb37378b21550f27c7d Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 5 Oct 2009 21:04:13 +0200
Subject: In Perl_moreswitches(), merge 2 string constants in the code
 implementing -v.

---
 perl.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/perl.c b/perl.c
index 7a1db7c9c4..2c5128674d 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 */
-- 
cgit v1.2.1