revert "revert perl -h changes"

[perl5.git] / perl.c

diff --git a/perl.c b/perl.c
index dfb549d..6824835 100644 (file)
--- 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.