revert "revert perl -h changes"

Reapplies commit 482d21b3db741a7f6b59279ab7ad289307e2186b
that was reverted in commit bb87c82accf79d3e15da7fc9b646232a4c2bd47c

1 files changed, 6 insertions, 2 deletions

diff --git a/perl.c b/perl.c
index dfb549d60e..6824835ee6 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, subversion (includes VERY IMPORTANT perl info)",
+"-v                print version, patchlevel and license",
 "-V[:variable]     print configuration summary (or a single Config.pm variable)",
 "-w                enable many useful warnings (RECOMMENDED)",
 "-W                enable all warnings",
-"-x[directory]     strip off text before #!perl line and perhaps cd to directory",
+"-x[directory]     ignore text before #!perl line (optionally cd to directory)",
 "-X                disable all warnings",
 "\n",
 NULL
@@ -2853,6 +2853,10 @@ 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.