From: Yves Orton <demerphq@dromedary.booking.com>
Date: Fri, 26 Dec 2008 15:01:32 +0000 (+0100)
Subject: tidier -v output
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f68271caaab1f350ae812cccb5d90806ab15b75;p=p5sagit%2Fp5-mst-13.2.git

tidier -v output
---

diff --git a/perl.c b/perl.c
index d3e3bc9..e963c0b 100644
--- a/perl.c
+++ b/perl.c
@@ -3305,9 +3305,6 @@ Perl_moreswitches(pTHX_ const char *s)
 #if !defined(DGUX)
 	PerlIO_printf(PerlIO_stdout(),
 		"\nThis is perl, %"SVf
-#ifdef PERL_PATCHNUM
-		" DEVEL:" STRINGIFY(PERL_PATCHNUM)
-#endif
 		" built for %s",
 		SVfARG(vstringify(PL_patchlevel)),
 		ARCHNAME);
@@ -3323,6 +3320,9 @@ Perl_moreswitches(pTHX_ const char *s)
 			Perl_form(aTHX_ "        OS Specific Release: %s\n",
 					OSVERS));
 #endif /* !DGUX */
+#ifdef PERL_PATCHNUM
+	PerlIO_printf(PerlIO_stdout(), "\nGit Description: %s", STRINGIFY(PERL_PATCHNUM));
+#endif
 
 #if defined(LOCAL_PATCH_COUNT)
 	if (LOCAL_PATCH_COUNT > 0)