From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 20 Jun 2005 13:06:13 +0000 (+0000)
Subject: perl -v was outputting a double v (spotted by Jarkko)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=52ea0aec6f04b4fc36c34aab7cc18f8c14f670c8;p=p5sagit%2Fp5-mst-13.2.git

perl -v was outputting a double v (spotted by Jarkko)

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

diff --git a/perl.c b/perl.c
index 45b8625..7f48fee 100644
--- a/perl.c
+++ b/perl.c
@@ -2828,13 +2828,13 @@ Perl_moreswitches(pTHX_ char *s)
 		(void *)upg_version(PL_patchlevel);
 #if !defined(DGUX)
 	PerlIO_printf(PerlIO_stdout(),
-		Perl_form(aTHX_ "\nThis is perl, v%"SVf" built for %s",
+		Perl_form(aTHX_ "\nThis is perl, %"SVf" built for %s",
 		    vstringify(PL_patchlevel),
 		    ARCHNAME));
 #else /* DGUX */
 /* Adjust verbose output as in the perl that ships with the DG/UX OS from EMC */
 	PerlIO_printf(PerlIO_stdout(),
-		Perl_form(aTHX_ "\nThis is perl, v%"SVf"\n",
+		Perl_form(aTHX_ "\nThis is perl, %"SVf"\n",
 		    vstringify(PL_patchlevel)));
 	PerlIO_printf(PerlIO_stdout(),
 			Perl_form(aTHX_ "        built under %s at %s %s\n",