From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 22 Feb 2000 19:51:47 +0000 (+0000)
Subject: add -W and -X to -h output; fix other pod omissions
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3c0facb21e91c63c42bcfc1031a2f001e59d479c;p=p5sagit%2Fp5-mst-13.2.git

add -W and -X to -h output; fix other pod omissions

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

diff --git a/perl.c b/perl.c
index d1bbb27..3b47644 100644
--- a/perl.c
+++ b/perl.c
@@ -1907,6 +1907,8 @@ S_usage(pTHX_ char *name)		/* XXX move this out into a module ? */
 "-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              disable all warnings",
 "-x[directory]   strip off text before #!perl line and perhaps cd to directory",
 "\n",
 NULL
diff --git a/pod/perlrun.pod b/pod/perlrun.pod
index 7767404..5cc1969 100644
--- a/pod/perlrun.pod
+++ b/pod/perlrun.pod
@@ -575,10 +575,11 @@ enables rudimentary switch parsing for switches on the command
 line after the program name but before any filename arguments (or before
 a B<-->).  Any switch found there is removed from @ARGV and sets the
 corresponding variable in the Perl program.  The following program
-prints "true" if and only if the program is invoked with a B<-xyz> switch.
+prints "1" if the program is invoked with a B<-xyz> switch, and "abc"
+if it is invoked with B<-xyz=abc>.
 
     #!/usr/bin/perl -s
-    if ($xyz) { print "true\n" }
+    if ($xyz) { print "$xyz\n" }
 
 =item B<-S>
 
@@ -705,12 +706,12 @@ that.
 
 =item B<-W>
 
-Enables all warnings regardless of 
+Enables all warnings regardless of C<no warnings> or C<$^W>.
 See L<perllexwarn>.
 
 =item B<-X>
 
-Disables all warnings regardless of 
+Disables all warnings regardless of C<use warnings> or C<$^W>.
 See L<perllexwarn>.
 
 =item B<-x> I<directory>