From: David Golden <dagolden@cpan.org>
Date: Thu, 11 Feb 2010 19:15:10 +0000 (-0500)
Subject: revert perl -h changes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bb87c82accf79d3e15da7fc9b646232a4c2bd47c;p=p5sagit%2Fp5-mst-13.2.git

revert perl -h changes
---

diff --git a/perl.c b/perl.c
index bb2fd12..04184be 100644
--- a/perl.c
+++ b/perl.c
@@ -2835,11 +2835,11 @@ S_usage(pTHX_ const char *name)		/* XXX move this out into a module ? */
 "-T                enable tainting checks",
 "-u                dump core after parsing program",
 "-U                allow unsafe operations",
-"-v                print version, patchlevel and license",
+"-v                print version, subversion (includes VERY IMPORTANT perl info)",
 "-V[:variable]     print configuration summary (or a single Config.pm variable)",
 "-w                enable many useful warnings (RECOMMENDED)",
 "-W                enable all warnings",
-"-x[directory]     ignore text before #!perl line (optionally cd to directory)",
+"-x[directory]     strip off text before #!perl line and perhaps cd to directory",
 "-X                disable all warnings",
 "\n",
 NULL
@@ -2853,10 +2853,6 @@ NULL
 		  name);
     while (*p)
 	PerlIO_printf(PerlIO_stdout(), "\n  %s", *p++);
-
-    PerlIO_printf(PerlIO_stdout(),
-		  "Run 'perldoc perl' for more help with Perl.\n\n"
-		  );
 }
 
 /* convert a string of -D options (or digits) into an int.