From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 22 Apr 2005 12:42:37 +0000 (+0000)
Subject: There's no point listing '-f' in --help output
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f71cb6df11614c54913a9f429bb3d009a4951ed5;p=p5sagit%2Fp5-mst-13.2.git

There's no point listing '-f' in --help output
when perl isn't built with USE_SITECUSTOMIZE, since it might
confuse users about $sitelib/sitecustomize.pl being sourced
at startup.

p4raw-id: //depot/perl@24287
---

diff --git a/perl.c b/perl.c
index 32b6603..3bb3a8e 100644
--- a/perl.c
+++ b/perl.c
@@ -2445,7 +2445,9 @@ S_usage(pTHX_ const char *name)		/* XXX move this out into a module ? */
 "-d[:debugger]   run program under debugger",
 "-D[number/list] set debugging flags (argument is a bit mask or alphabets)",
 "-e program      one line of program (several -e's allowed, omit programfile)",
+#ifdef USE_SITECUSTOMIZE
 "-f              don't do $sitelib/sitecustomize.pl at startup",
+#endif
 "-F/pattern/     split() pattern for -a switch (//'s are optional)",
 "-i[extension]   edit <> files in place (makes backup if extension supplied)",
 "-Idirectory     specify @INC/#include directory (several -I's allowed)",