summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorDavid Golden <dagolden@cpan.org>2010-02-11 14:15:10 -0500
committerDavid Golden <dagolden@cpan.org>2010-02-11 14:15:21 -0500
commitbb87c82accf79d3e15da7fc9b646232a4c2bd47c (patch)
treeaca80cc41a0b717f51bff7030421912a6d28435d /perl.c
parent2630fd9e8e31d2fd409e2e8ec16dc85d230a3eb3 (diff)
downloadperl-bb87c82accf79d3e15da7fc9b646232a4c2bd47c.tar.gz
revert perl -h changes
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c8
1 files changed, 2 insertions, 6 deletions
diff --git a/perl.c b/perl.c
index bb2fd126ee..04184be040 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.