This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate with Sarathy.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 26 Apr 2000 23:06:42 +0000 (23:06 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 26 Apr 2000 23:06:42 +0000 (23:06 +0000)
p4raw-id: //depot/cfgperl@5953

16 files changed:
README.win32
ext/B/B/Deparse.pm
ext/DynaLoader/DynaLoader_pm.PL
ext/DynaLoader/XSLoader_pm.PL
lib/vars.pm
perl.c
pod/perldiag.pod
pod/perlsub.pod
pod/perlsyn.pod
pod/perlthrtut.pod
pod/perltoc.pod
pod/perltodo.pod
pod/perlxs.pod
pod/perlxstut.pod
utils/perldoc.PL
vms/perlvms.pod

index 66482b9..e71b6f4 100644 (file)
@@ -85,7 +85,7 @@ popular 4DOS/NT shell have incompatibilities that may cause you trouble.
 If the build fails under that shell, try building again with the cmd
 shell.
 
-The nmake Makefile also has known incompatibilites with the
+The nmake Makefile also has known incompatibilities with the
 "command.com" shell that comes with Windows 9x.  You will need to
 use dmake and makefile.mk to build under Windows 9x.
 
index cd53c11..5c0be87 100644 (file)
@@ -1,5 +1,5 @@
 # B::Deparse.pm
-# Copyright (c) 1998, 1999 Stephen McCamant. All rights reserved.
+# Copyright (c) 1998, 1999, 2000 Stephen McCamant. All rights reserved.
 # This module is free software; you can redistribute and/or modify
 # it under the same terms as Perl itself.
 
@@ -8,7 +8,6 @@
 
 package B::Deparse;
 use Carp 'cluck', 'croak';
-use Config;
 use B qw(class main_root main_start main_cv svref_2object opnumber
         OPf_WANT OPf_WANT_VOID OPf_WANT_SCALAR OPf_WANT_LIST
         OPf_KIDS OPf_REF OPf_STACKED OPf_SPECIAL
@@ -17,7 +16,7 @@ use B qw(class main_root main_start main_cv svref_2object opnumber
         SVf_IOK SVf_NOK SVf_ROK SVf_POK
         PMf_KEEP PMf_GLOBAL PMf_CONTINUE PMf_EVAL PMf_ONCE
         PMf_MULTILINE PMf_SINGLELINE PMf_FOLD PMf_EXTENDED);
-$VERSION = 0.59;
+$VERSION = 0.591;
 use strict;
 
 # Changes between 0.50 and 0.51:
@@ -252,17 +251,17 @@ sub walk_sub {
     walk_tree($op, sub {
        my $op = shift;
        if ($op->name eq "gv") {
-           my $gv = $self->maybe_padgv($op);
+           my $gv = $self->gv_or_padgv($op);
            if ($op->next->name eq "entersub") {
-               next if $self->{'subs_done'}{$$gv}++;
-               next if class($gv->CV) eq "SPECIAL";
+               return if $self->{'subs_done'}{$$gv}++;
+               return if class($gv->CV) eq "SPECIAL";
                $self->todo($gv, $gv->CV, 0);
                $self->walk_sub($gv->CV);
            } elsif ($op->next->name eq "enterwrite"
                     or ($op->next->name eq "rv2gv"
                         and $op->next->next->name eq "enterwrite")) {
-               next if $self->{'forms_done'}{$$gv}++;
-               next if class($gv->FORM) eq "SPECIAL";
+               return if $self->{'forms_done'}{$$gv}++;
+               return if class($gv->FORM) eq "SPECIAL";
                $self->todo($gv, $gv->FORM, 1);
                $self->walk_sub($gv->FORM);
            }
@@ -378,7 +377,7 @@ sub compile {
        while (scalar(@{$self->{'subs_todo'}})) {
            push @text, $self->next_todo;
        }
-       print indent(join("", @text)), "\n" if @text;
+       print $self->indent(join("", @text)), "\n" if @text;
     }
 }
 
@@ -1653,6 +1652,13 @@ sub pp_list {
     }
 }
 
+sub is_ifelse_cont {
+    my $op = shift;
+    return ($op->name eq "null" and class($op) eq "UNOP"
+           and $op->first->name =~ /^(and|cond_expr)$/
+           and is_scope($op->first->first->sibling));
+}
+
 sub pp_cond_expr {
     my $self = shift;
     my($op, $cx) = @_;
@@ -1660,36 +1666,34 @@ sub pp_cond_expr {
     my $true = $cond->sibling;
     my $false = $true->sibling;
     my $cuddle = $self->{'cuddle'};
-    unless ($cx == 0 and is_scope($true) and is_scope($false)) {
+    unless ($cx == 0 and (is_scope($true) and $true->name ne "null") and
+           (is_scope($false) || is_ifelse_cont($false))) {
        $cond = $self->deparse($cond, 8);
        $true = $self->deparse($true, 8);
        $false = $self->deparse($false, 8);
        return $self->maybe_parens("$cond ? $true : $false", $cx, 8);
-    } 
+    }
+
     $cond = $self->deparse($cond, 1);
     $true = $self->deparse($true, 0);    
-    if ($false->name eq "lineseq") { # braces w/o scope => elsif
-       my $head = "if ($cond) {\n\t$true\n\b}";
-       my @elsifs;
-       while (!null($false) and $false->name eq "lineseq") {
-           my $newop = $false->first->sibling->first;
-           my $newcond = $newop->first;
-           my $newtrue = $newcond->sibling;
-           $false = $newtrue->sibling; # last in chain is OP_AND => no else
-           $newcond = $self->deparse($newcond, 1);
-           $newtrue = $self->deparse($newtrue, 0);
-           push @elsifs, "elsif ($newcond) {\n\t$newtrue\n\b}";
-       }
-       if (!null($false)) {        
-           $false = $cuddle . "else {\n\t" .
-             $self->deparse($false, 0) . "\n\b}\cK";
-       } else {
-           $false = "\cK";
-       }
-       return $head . join($cuddle, "", @elsifs) . $false; 
+    my $head = "if ($cond) {\n\t$true\n\b}";
+    my @elsifs;
+    while (!null($false) and is_ifelse_cont($false)) {
+       my $newop = $false->first;
+       my $newcond = $newop->first;
+       my $newtrue = $newcond->sibling;
+       $false = $newtrue->sibling; # last in chain is OP_AND => no else
+       $newcond = $self->deparse($newcond, 1);
+       $newtrue = $self->deparse($newtrue, 0);
+       push @elsifs, "elsif ($newcond) {\n\t$newtrue\n\b}";
+    }
+    if (!null($false)) {           
+       $false = $cuddle . "else {\n\t" .
+         $self->deparse($false, 0) . "\n\b}\cK";
+    } else {
+       $false = "\cK";
     }
-    $false = $self->deparse($false, 0);
-    return "if ($cond) {\n\t$true\n\b}${cuddle}else {\n\t$false\n\b}\cK";
+    return $head . join($cuddle, "", @elsifs) . $false; 
 }
 
 sub pp_leaveloop {
@@ -1814,7 +1818,7 @@ sub pp_null {
     } elsif ($op->first->name eq "enter") {
        return $self->pp_leave($op, $cx);
     } elsif ($op->targ == OP_STRINGIFY) {
-       return $self->dquote($op);
+       return $self->dquote($op, $cx);
     } elsif (!null($op->first->sibling) and
             $op->first->sibling->name eq "readline" and
             $op->first->sibling->flags & OPf_STACKED) {
@@ -1879,37 +1883,34 @@ sub pp_threadsv {
     return $self->maybe_local($op, $cx, "\$" .  $threadsv_names[$op->targ]);
 }    
 
-sub maybe_padgv {
+sub gv_or_padgv {
     my $self = shift;
     my $op = shift;
-    my $gv;
-    if ($Config{useithreads}) {
-       $gv = $self->padval($op->padix);
-    }
-    else {
-       $gv = $op->gv;
+    if (class($op) eq "PADOP") {
+       return $self->padval($op->padix);
+    } else { # class($op) eq "SVOP"
+       return $op->gv;
     }
-    return $gv;
 }
 
 sub pp_gvsv {
     my $self = shift;
     my($op, $cx) = @_;
-    my $gv = $self->maybe_padgv($op);
+    my $gv = $self->gv_or_padgv($op);
     return $self->maybe_local($op, $cx, "\$" . $self->gv_name($gv));
 }
 
 sub pp_gv {
     my $self = shift;
     my($op, $cx) = @_;
-    my $gv = $self->maybe_padgv($op);
+    my $gv = $self->gv_or_padgv($op);
     return $self->gv_name($gv);
 }
 
 sub pp_aelemfast {
     my $self = shift;
     my($op, $cx) = @_;
-    my $gv = $self->maybe_padgv($op);
+    my $gv = $self->gv_or_padgv($op);
     return "\$" . $self->gv_name($gv) . "[" . $op->private . "]";
 }
 
@@ -2220,7 +2221,7 @@ sub pp_entersub {
        $amper = "&";
        $kid = "{" . $self->deparse($kid, 0) . "}";
     } elsif ($kid->first->name eq "gv") {
-       my $gv = $self->maybe_padgv($kid->first);
+       my $gv = $self->gv_or_padgv($kid->first);
        if (class($gv->CV) ne "SPECIAL") {
            $proto = $gv->CV->PV if $gv->CV->FLAGS & SVf_POK;
        }
@@ -2252,9 +2253,9 @@ sub pp_entersub {
     } else {
        if (defined $proto and $proto eq "") {
            return $kid;
-       } elsif ($proto eq "\$") {
+       } elsif (defined $proto and $proto eq "\$") {
            return $self->maybe_parens_func($kid, $args, $cx, 16);
-       } elsif ($proto or $simple) {
+       } elsif (defined($proto) && $proto or $simple) {
            return $self->maybe_parens_func($kid, $args, $cx, 5);
        } else {
            return "$kid(" . $args . ")";
@@ -2418,7 +2419,7 @@ sub pp_backtick {
 
 sub dquote {
     my $self = shift;
-    my($op, $cx) = shift;
+    my($op, $cx) = @_;
     my $kid = $op->first->sibling; # skip ex-stringify, pushmark
     return $self->deparse($kid, $cx) if $self->{'unquote'};
     $self->maybe_targmy($kid, $cx,
index e0eb604..55b8eca 100644 (file)
@@ -114,9 +114,9 @@ push(@dl_library_path, split(/:/, $ENV{LD_LIBRARY_PATH}))
 }
 
 # No prizes for guessing why we don't say 'bootstrap DynaLoader;' here.
+# NOTE: All dl_*.xs (including dl_none.xs) define a dl_error() XSUB
 boot_DynaLoader('DynaLoader') if defined(&boot_DynaLoader) &&
-                                !defined(&dl_load_file);
-
+                                !defined(&dl_error);
 
 if ($dl_debug) {
     print STDERR "DynaLoader.pm loaded (@INC, @dl_library_path)\n";
index 8cdfd63..7657410 100644 (file)
@@ -37,10 +37,12 @@ print OUT '  my $dl_dlext = ', to_string($Config::Config{'dlext'}), ";\n" ;
 
 print OUT <<'EOT';
 
-# No prizes for guessing why we don't say 'bootstrap DynaLoader;' here.
 package DynaLoader;
+
+# No prizes for guessing why we don't say 'bootstrap DynaLoader;' here.
+# NOTE: All dl_*.xs (including dl_none.xs) define a dl_error() XSUB
 boot_DynaLoader('DynaLoader') if defined(&boot_DynaLoader) &&
-                                !defined(&dl_load_file);
+                                !defined(&dl_error);
 package XSLoader;
 
 1; # End of main code
index bde0b2a..0ace551 100644 (file)
@@ -8,7 +8,8 @@ require 5.002;
 # if Carp hasn't been loaded in earlier compile time. :-(
 # We'll let those bugs get found on the development track.
 require Carp if $] < 5.00450;
-use warnings::register();
+
+use warnings::register;
 
 sub import {
     my $callpack = caller;
diff --git a/perl.c b/perl.c
index 387b4dd..e7a9bc2 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -2135,6 +2135,8 @@ Perl_moreswitches(pTHX_ char *s)
                    sv_catpv( sv, " ()");
                }
            } else {
+                if (s == start)
+                    Perl_croak(aTHX_ "Module name required with -M option");
                sv_catpvn(sv, start, s-start);
                sv_catpv(sv, " split(/,/,q{");
                sv_catpv(sv, ++s);
index f559645..659e153 100644 (file)
@@ -15,8 +15,8 @@ desperation):
     (X) A very fatal error (nontrappable).
     (A) An alien error message (not generated by Perl).
 
-The majority of messages from the first three classifications above (W,
-D & S) can be controlled using the C<warnings> pragma. 
+The majority of messages from the first three classifications above
+(W, D & S) can be controlled using the C<warnings> pragma. 
 
 If a message can be controlled by the C<warnings> pragma, its warning
 category is included with the classification letter in the description
@@ -35,116 +35,92 @@ L<perlfunc/eval>.  In almost all cases, warnings may be selectively
 disabled or promoted to fatal errors using the C<warnings> pragma.
 See L<warnings>.
 
-Some of these messages are generic.  Spots that vary are denoted with a %s,
-just as in a printf format.  Note that some messages start with a %s!
-Since the messages are listed in alphabetical order, the symbols
-C<"%(-?@> sort before the letters, while C<[> and C<\> sort after.
+The messages are in alphabetical order, without regard to upper or
+lower-case.  Some of these messages are generic.  Spots that vary are
+denoted with a %s or other printf-style escape.  These escapes are
+ignored by the alphabetical order, as are all characters other than
+letters.  To look up your message, just ignore anything that is not a
+letter.
 
 =over 4
 
-=item "%s" variable %s masks earlier declaration in same %s
-
-(W misc) A "my" or "our" variable has been redeclared in the current scope or statement,
-effectively eliminating all access to the previous instance.  This is almost
-always a typographical error.  Note that the earlier variable will still exist
-until the end of the scope or until all closure referents to it are
-destroyed.
-
-=item "my sub" not yet implemented
-
-(F) Lexically scoped subroutines are not yet implemented.  Don't try that
-yet.
-
-=item "my" variable %s can't be in a package
-
-(F) Lexically scoped variables aren't in a package, so it doesn't make sense
-to try to declare one with a package qualifier on the front.  Use local()
-if you want to localize a package variable.
-
-=item "no" not allowed in expression
-
-(F) The "no" keyword is recognized and executed at compile time, and returns
-no useful value.  See L<perlmod>.
-
-=item "our" variable %s redeclared
+=item accept() on closed socket %s
 
-(W misc) You seem to have already declared the same global once before in the
-current lexical scope.
+(W closed) You tried to do an accept on a closed socket.  Did you forget to
+check the return value of your socket() call?  See L<perlfunc/accept>.
 
-=item "use" not allowed in expression
+=item Allocation too large: %lx
 
-(F) The "use" keyword is recognized and executed at compile time, and returns
-no useful value.  See L<perlmod>.
+(X) You can't allocate more than 64K on an MS-DOS machine.
 
 =item '!' allowed only after types %s
 
 (F) The '!' is allowed in pack() and unpack() only after certain types.
 See L<perlfunc/pack>.
 
-=item / cannot take a count
-
-(F) You had an unpack template indicating a counted-length string,
-but you have also specified an explicit size for the string.
-See L<perlfunc/pack>.
-
-=item / must be followed by a, A or Z
-
-(F) You had an unpack template indicating a counted-length string,
-which must be followed by one of the letters a, A or Z
-to indicate what sort of string is to be unpacked.
-See L<perlfunc/pack>.
+=item Ambiguous call resolved as CORE::%s(), qualify as such or use &
 
-=item / must be followed by a*, A* or Z*
+(W ambiguous) A subroutine you have declared has the same name as a Perl
+keyword, and you have used the name without qualification for calling one or
+the other.  Perl decided to call the builtin because the subroutine is not
+imported.
 
-(F) You had a pack template indicating a counted-length string,
-Currently the only things that can have their length counted are a*, A* or Z*.
-See L<perlfunc/pack>.
+To force interpretation as a subroutine call, either put an ampersand
+before the subroutine name, or qualify the name with its package.
+Alternatively, you can import the subroutine (or pretend that it's
+imported with the C<use subs> pragma).
 
-=item / must follow a numeric type
+To silently interpret it as the Perl operator, use the C<CORE::> prefix
+on the operator (e.g. C<CORE::log($x)>) or by declaring the subroutine
+to be an object method (see L<perlsub/"Subroutine Attributes">
+or L<attributes>).
 
-(F) You had an unpack template that contained a '#',
-but this did not follow some numeric unpack specification.
-See L<perlfunc/pack>.
+=item Ambiguous use of %s resolved as %s
 
-=item % may only be used in unpack
+(W ambiguous)(S) You said something that may not be interpreted the way
+you thought.  Normally it's pretty easy to disambiguate it by supplying
+a missing quote, operator, parenthesis pair or declaration.
 
-(F) You can't pack a string by supplying a checksum, because the
-checksumming process loses information, and you can't go the other
-way.  See L<perlfunc/unpack>.
+=item '|' and '<' may not both be specified on command line
 
-=item /%s/: Unrecognized escape \\%c passed through
+(F) An error peculiar to VMS.  Perl does its own command line redirection, and
+found that STDIN was a pipe, and that you also tried to redirect STDIN using
+'<'.  Only one STDIN stream to a customer, please.
 
-(W regexp) You used a backslash-character combination which is not recognized
-by Perl.  This combination appears in an interpolated variable or a 
-C<'>-delimited regular expression.  The character was understood literally.
+=item '|' and '>' may not both be specified on command line
 
-=item /%s/: Unrecognized escape \\%c in character class passed through
+(F) An error peculiar to VMS.  Perl does its own command line redirection, and
+thinks you tried to redirect stdout both to a file and into a pipe to another
+command.  You need to choose one or the other, though nothing's stopping you
+from piping into a program or Perl script which 'splits' output into two
+streams, such as
 
-(W regexp) You used a backslash-character combination which is not recognized
-by Perl inside character classes.  The character was understood literally.
+    open(OUT,">$ARGV[0]") or die "Can't write to $ARGV[0]: $!";
+    while (<STDIN>) {
+        print;
+        print OUT;
+    }
+    close OUT;
 
-=item /%s/ should probably be written as "%s"
+=item Applying %s to %s will act on scalar(%s)
 
-(W syntax) You have used a pattern where Perl expected to find a string,
-as in the first argument to C<join>.  Perl will treat the true
-or false result of matching the pattern against $_ as the string,
-which is probably not what you had in mind.
+(W misc) The pattern match (//), substitution (s///), and transliteration
+(tr///) operators work on scalar values.  If you apply one of them to an array
+or a hash, it will convert the array or hash to a scalar value -- the length
+of an array, or the population info of a hash -- and then work on that scalar
+value.  This is probably not what you meant to do.  See L<perlfunc/grep> and
+L<perlfunc/map> for alternatives.
 
-=item %s (...) interpreted as function
+=item Args must match #! line
 
-(W syntax) You've run afoul of the rule that says that any list operator followed
-by parentheses turns into a function, with all the list operators arguments
-found inside the parentheses.  See L<perlop/Terms and List Operators (Leftward)>.
+(F) The setuid emulator requires that the arguments Perl was invoked
+with match the arguments specified on the #! line.  Since some systems
+impose a one-argument limit on the #! line, try combining switches;
+for example, turn C<-w -U> into C<-wU>.
 
-=item %s() called too early to check prototype
+=item Arg too short for msgsnd
 
-(W prototype) You've called a function that has a prototype before the parser saw a
-definition or declaration for it, and Perl could not check that the call
-conforms to the prototype.  You need to either add an early prototype
-declaration for the subroutine in question, or move the subroutine
-definition ahead of the call to get proper prototype checking.  Alternatively,
-if you are certain that you're calling the function correctly, you may put
-an ampersand before the name to avoid the warning.  See L<perlsub>.
+(F) msgsnd() requires a string at least as long as sizeof(long).
 
 =item %s argument is not a HASH or ARRAY element
 
@@ -170,189 +146,16 @@ or a hash or array slice, such as:
 (F) The argument to exists() for C<exists &sub> must be a subroutine
 name, and not a subroutine call.  C<exists &sub()> will generate this error.
 
-=item %s did not return a true value
-
-(F) A required (or used) file must return a true value to indicate that
-it compiled correctly and ran its initialization code correctly.  It's
-traditional to end such a file with a "1;", though any true value would
-do.  See L<perlfunc/require>.
-
-=item %s found where operator expected
-
-(S) The Perl lexer knows whether to expect a term or an operator.  If it
-sees what it knows to be a term when it was expecting to see an operator,
-it gives you this warning.  Usually it indicates that an operator or
-delimiter was omitted, such as a semicolon.
-
-=item %s had compilation errors
-
-(F) The final summary message when a C<perl -c> fails.
-
-=item %s has too many errors
-
-(F) The parser has given up trying to parse the program after 10 errors.
-Further error messages would likely be uninformative.
-
-=item %s matches null string many times
-
-(W regexp) The pattern you've specified would be an infinite loop if the
-regular expression engine didn't specifically check for that.  See L<perlre>.
-
-=item %s never introduced
-
-(S internal) The symbol in question was declared but somehow went out of scope
-before it could possibly have been used.
-
-=item %s package attribute may clash with future reserved word: %s
-
-(W reserved) A lowercase attribute name was used that had a package-specific handler.
-That name might have a meaning to Perl itself some day, even though it
-doesn't yet.  Perhaps you should use a mixed-case attribute name, instead.
-See L<attributes>.
-
-=item %s syntax OK
-
-(F) The final summary message when a C<perl -c> succeeds.
-
-=item %s: Command not found
-
-(A) You've accidentally run your script through B<csh> instead
-of Perl.  Check the #! line, or manually feed your script into
-Perl yourself.
-
-=item %s: Expression syntax
-
-(A) You've accidentally run your script through B<csh> instead
-of Perl.  Check the #! line, or manually feed your script into
-Perl yourself.
-
-=item %s: Undefined variable
-
-(A) You've accidentally run your script through B<csh> instead
-of Perl.  Check the #! line, or manually feed your script into
-Perl yourself.
-
-=item %s: not found
-
-(A) You've accidentally run your script through the Bourne shell
-instead of Perl.  Check the #! line, or manually feed your script
-into Perl yourself.
-
-=item (in cleanup) %s
-
-(W misc) This prefix usually indicates that a DESTROY() method raised
-the indicated exception.  Since destructors are usually called by
-the system at arbitrary points during execution, and often a vast
-number of times, the warning is issued only once for any number
-of failures that would otherwise result in the same message being
-repeated.
-
-Failure of user callbacks dispatched using the C<G_KEEPERR> flag
-could also result in this warning.  See L<perlcall/G_KEEPERR>.
-
-=item (Missing semicolon on previous line?)
-
-(S) This is an educated guess made in conjunction with the message "%s
-found where operator expected".  Don't automatically put a semicolon on
-the previous line just because you saw this message.
-
-=item B<-P> not allowed for setuid/setgid script
-
-(F) The script would have to be opened by the C preprocessor by name,
-which provides a race condition that breaks security.
-
-=item C<-T> and C<-B> not implemented on filehandles
-
-(F) Perl can't peek at the stdio buffer of filehandles when it doesn't
-know about your kind of stdio.  You'll have to use a filename instead.
-
-=item C<-p> destination: %s
-
-(F) An error occurred during the implicit output invoked by the C<-p>
-command-line switch.  (This output goes to STDOUT unless you've
-redirected it with select().)
-
-=item 500 Server error
-
-See Server error.
-
-=item ?+* follows nothing in regexp
-
-(F) You started a regular expression with a quantifier.  Backslash it
-if you meant it literally.   See L<perlre>.
-
-=item @ outside of string
-
-(F) You had a pack template that specified an absolute position outside
-the string being unpacked.  See L<perlfunc/pack>.
-
-=item <> should be quotes
-
-(F) You wrote C<< require <file> >> when you should have written
-C<require 'file'>.
-
-=item accept() on closed socket %s
-
-(W closed) You tried to do an accept on a closed socket.  Did you forget to check
-the return value of your socket() call?  See L<perlfunc/accept>.
-
-=item Allocation too large: %lx
-
-(X) You can't allocate more than 64K on an MS-DOS machine.
-
-=item Applying %s to %s will act on scalar(%s)
-
-(W misc) The pattern match (//), substitution (s///), and transliteration (tr///)
-operators work on scalar values.  If you apply one of them to an array
-or a hash, it will convert the array or hash to a scalar value -- the
-length of an array, or the population info of a hash -- and then work on
-that scalar value.  This is probably not what you meant to do.  See
-L<perlfunc/grep> and L<perlfunc/map> for alternatives.
-
-=item Arg too short for msgsnd
-
-(F) msgsnd() requires a string at least as long as sizeof(long).
-
-=item Ambiguous use of %s resolved as %s
-
-(W ambiguous)(S) You said something that may not be interpreted the way
-you thought.  Normally it's pretty easy to disambiguate it by supplying
-a missing quote, operator, parenthesis pair or declaration.
-
-=item Ambiguous call resolved as CORE::%s(), qualify as such or use &
-
-(W ambiguous) A subroutine you have declared has the same name as a Perl keyword,
-and you have used the name without qualification for calling one or the
-other.  Perl decided to call the builtin because the subroutine is
-not imported.
-
-To force interpretation as a subroutine call, either put an ampersand
-before the subroutine name, or qualify the name with its package.
-Alternatively, you can import the subroutine (or pretend that it's
-imported with the C<use subs> pragma).
-
-To silently interpret it as the Perl operator, use the C<CORE::> prefix
-on the operator (e.g. C<CORE::log($x)>) or by declaring the subroutine
-to be an object method (see L<perlsub/"Subroutine Attributes">
-or L<attributes>).
-
-=item Args must match #! line
-
-(F) The setuid emulator requires that the arguments Perl was invoked
-with match the arguments specified on the #! line.  Since some systems
-impose a one-argument limit on the #! line, try combining switches;
-for example, turn C<-w -U> into C<-wU>.
-
 =item Argument "%s" isn't numeric%s
 
 (W numeric) The indicated string was fed as an argument to an operator that
-expected a numeric value instead.  If you're fortunate the message
-will identify which operator was so unfortunate.
+expected a numeric value instead.  If you're fortunate the message will
+identify which operator was so unfortunate.
 
 =item Array @%s missing the @ in argument %d of %s()
 
-(D deprecated) Really old Perl let you omit the @ on array names in some spots.  This
-is now heavily deprecated.
+(D deprecated) Really old Perl let you omit the @ on array names in some
+spots.  This is now heavily deprecated.
 
 =item assertion botched: %s
 
@@ -371,23 +174,22 @@ know which context to supply to the right side.
 =item Attempt to free non-arena SV: 0x%lx
 
 (P internal) All SV objects are supposed to be allocated from arenas that will
-be garbage collected on exit.  An SV was discovered to be outside any
-of those arenas.
+be garbage collected on exit.  An SV was discovered to be outside any of those
+arenas.
 
 =item Attempt to free nonexistent shared string
 
 (P internal) Perl maintains a reference counted internal table of strings to
 optimize the storage and access of hash keys and other strings.  This
-indicates someone tried to decrement the reference count of a string
-that can no longer be found in the table.
+indicates someone tried to decrement the reference count of a string that can
+no longer be found in the table.
 
 =item Attempt to free temp prematurely
 
 (W debugging) Mortalized values are supposed to be freed by the free_tmps()
-routine.  This indicates that something else is freeing the SV before
-the free_tmps() routine gets a chance, which means that the free_tmps()
-routine will be freeing an unreferenced scalar when it does try to free
-it.
+routine.  This indicates that something else is freeing the SV before the
+free_tmps() routine gets a chance, which means that the free_tmps() routine
+will be freeing an unreferenced scalar when it does try to free it.
 
 =item Attempt to free unreferenced glob pointers
 
@@ -395,12 +197,12 @@ it.
 
 =item Attempt to free unreferenced scalar
 
-(W internal) Perl went to decrement the reference count of a scalar to see if it
-would go to 0, and discovered that it had already gone to 0 earlier,
-and should have been freed, and in fact, probably was freed.  This
-could indicate that SvREFCNT_dec() was called too many times, or that
-SvREFCNT_inc() was called too few times, or that the SV was mortalized
-when it shouldn't have been, or that memory has been corrupted.
+(W internal) Perl went to decrement the reference count of a scalar to see if
+it would go to 0, and discovered that it had already gone to 0 earlier, and
+should have been freed, and in fact, probably was freed.  This could indicate
+that SvREFCNT_dec() was called too many times, or that SvREFCNT_inc() was
+called too few times, or that the SV was mortalized when it shouldn't have
+been, or that memory has been corrupted.
 
 =item Attempt to join self
 
@@ -410,18 +212,17 @@ need to move the join() to some other thread.
 
 =item Attempt to pack pointer to temporary value
 
-(W pack) You tried to pass a temporary value (like the result of a
-function, or a computed expression) to the "p" pack() template.  This
-means the result contains a pointer to a location that could become
-invalid anytime, even before the end of the current statement.  Use
-literals or global values as arguments to the "p" pack() template to
-avoid this warning.
+(W pack) You tried to pass a temporary value (like the result of a function,
+or a computed expression) to the "p" pack() template.  This means the result
+contains a pointer to a location that could become invalid anytime, even
+before the end of the current statement.  Use literals or global values as
+arguments to the "p" pack() template to avoid this warning.
 
 =item Attempt to use reference as lvalue in substr
 
-(W substr) You supplied a reference as the first argument to substr() used
-as an lvalue, which is pretty strange.  Perhaps you forgot to
-dereference it first.  See L<perlfunc/substr>.
+(W substr) You supplied a reference as the first argument to substr() used as
+an lvalue, which is pretty strange.  Perhaps you forgot to dereference it
+first.  See L<perlfunc/substr>.
 
 =item Bad arg length for %s, is %d, should be %d
 
@@ -445,13 +246,12 @@ did it in another package.
 =item Bad free() ignored
 
 (S malloc) An internal routine called free() on something that had never been
-malloc()ed in the first place. Mandatory, but can be disabled by
-setting environment variable C<PERL_BADFREE> to 1.
+malloc()ed in the first place. Mandatory, but can be disabled by setting
+environment variable C<PERL_BADFREE> to 1.
 
-This message can be quite often seen with DB_File on systems with
-"hard" dynamic linking, like C<AIX> and C<OS/2>. It is a bug of
-C<Berkeley DB> which is left unnoticed if C<DB> uses I<forgiving>
-system malloc().
+This message can be quite often seen with DB_File on systems with "hard"
+dynamic linking, like C<AIX> and C<OS/2>. It is a bug of C<Berkeley DB> which
+is left unnoticed if C<DB> uses I<forgiving> system malloc().
 
 =item Bad hash
 
@@ -463,6 +263,12 @@ system malloc().
 pseudo-hash is not legal.  Index values must be at 1 or greater.
 See L<perlref>.
 
+=item Badly placed ()'s
+
+(A) You've accidentally run your script through B<csh> instead
+of Perl.  Check the #! line, or manually feed your script into
+Perl yourself.
+
 =item Bad name after %s::
 
 (F) You started to name a symbol by using a package prefix, and then didn't
@@ -479,9 +285,9 @@ is not the same as
 
 =item Bad realloc() ignored
 
-(S malloc) An internal routine called realloc() on something that had never been
-malloc()ed in the first place. Mandatory, but can be disabled by
-setting environment variable C<PERL_BADFREE> to 1.
+(S malloc) An internal routine called realloc() on something that had never
+been malloc()ed in the first place. Mandatory, but can be disabled by setting
+environment variable C<PERL_BADFREE> to 1.
 
 =item Bad symbol for array
 
@@ -498,29 +304,11 @@ wasn't a symbol table entry.
 (P) An internal request asked to add a hash entry to something that
 wasn't a symbol table entry.
 
-=item Badly placed ()'s
-
-(A) You've accidentally run your script through B<csh> instead
-of Perl.  Check the #! line, or manually feed your script into
-Perl yourself.
-
-=item Bareword "%s" not allowed while "strict subs" in use
-
-(F) With "strict subs" in use, a bareword is only allowed as a
-subroutine identifier, in curly brackets or to the left of the "=>" symbol.
-Perhaps you need to predeclare a subroutine?
-
-=item Bareword "%s" refers to nonexistent package
-
-(W bareword) You used a qualified bareword of the form C<Foo::>, but
-the compiler saw no other uses of that namespace before that point.
-Perhaps you need to predeclare a package?
-
 =item Bareword found in conditional
 
 (W bareword) The compiler found a bareword where it expected a conditional,
-which often indicates that an || or && was parsed as part of the
-last argument of the previous construct, for example:
+which often indicates that an || or && was parsed as part of the last argument
+of the previous construct, for example:
 
     open FOO || die;
 
@@ -532,6 +320,18 @@ as a bareword:
 
 The C<strict> pragma is useful in avoiding such errors.
 
+=item Bareword "%s" not allowed while "strict subs" in use
+
+(F) With "strict subs" in use, a bareword is only allowed as a
+subroutine identifier, in curly brackets or to the left of the "=>" symbol.
+Perhaps you need to predeclare a subroutine?
+
+=item Bareword "%s" refers to nonexistent package
+
+(W bareword) You used a qualified bareword of the form C<Foo::>, but
+the compiler saw no other uses of that namespace before that point.
+Perhaps you need to predeclare a package?
+
 =item BEGIN failed--compilation aborted
 
 (F) An untrapped exception was raised while executing a BEGIN subroutine.
@@ -545,6 +345,14 @@ already occurred.  Since the intended environment for the C<BEGIN {}>
 could not be guaranteed (due to the errors), and since subsequent code
 likely depends on its correct operation, Perl just gave up.
 
+=item \1 better written as $1
+
+(W syntax) Outside of patterns, backreferences live on as variables.  The use
+of backslashes is grandfathered on the right-hand side of a substitution, but
+stylistically it's better to use the variable form because other Perl
+programmers will expect it, and it works better if there are more than 9
+backreferences.
+
 =item Binary number > 0b11111111111111111111111111111111 non-portable
 
 (W portable) The binary number you specified is larger than 2**32-1
@@ -564,63 +372,37 @@ the return value of your socket() call?  See L<perlfunc/bind>.
 
 (P) Perl detected an attempt to copy an internal value that is not copiable.
 
+=item B<-P> not allowed for setuid/setgid script
+
+(F) The script would have to be opened by the C preprocessor by name,
+which provides a race condition that breaks security.
+
 =item Buffer overflow in prime_env_iter: %s
 
-(W internal) A warning peculiar to VMS.  While Perl was preparing to iterate over
-%ENV, it encountered a logical name or symbol definition which was too long,
-so it was truncated to the string shown.
+(W internal) A warning peculiar to VMS.  While Perl was preparing to iterate
+over %ENV, it encountered a logical name or symbol definition which was too
+long, so it was truncated to the string shown.
 
 =item Callback called exit
 
 (F) A subroutine invoked from an external package via call_sv()
 exited by calling exit.
 
-=item Can't "goto" out of a pseudo block
-
-(F) A "goto" statement was executed to jump out of what might look
-like a block, except that it isn't a proper block.  This usually
-occurs if you tried to jump out of a sort() block or subroutine, which
-is a no-no.  See L<perlfunc/goto>.
-
-=item Can't "goto" into the middle of a foreach loop
-
-(F) A "goto" statement was executed to jump into the middle of a
-foreach loop.  You can't get there from here.  See L<perlfunc/goto>.
-
-=item Can't "last" outside a loop block
-
-(F) A "last" statement was executed to break out of the current block,
-except that there's this itty bitty problem called there isn't a
-current block.  Note that an "if" or "else" block doesn't count as a
-"loopish" block, as doesn't a block given to sort(), map() or grep().
-You can usually double the curlies to get the same effect though,
-because the inner curlies will be considered a block that loops once.
-See L<perlfunc/last>.
-
-=item Can't "next" outside a loop block
-
-(F) A "next" statement was executed to reiterate the current block, but
-there isn't a current block.  Note that an "if" or "else" block doesn't
-count as a "loopish" block, as doesn't a block given to sort(), map()
-or grep().  You can usually double the curlies to get the same effect
-though, because the inner curlies will be considered a block that
-loops once.  See L<perlfunc/next>.
-
-=item Can't read CRTL environ
+=item %s() called too early to check prototype
 
-(S) A warning peculiar to VMS.  Perl tried to read an element of %ENV
-from the CRTL's internal environment array and discovered the array was
-missing.  You need to figure out where your CRTL misplaced its environ
-or define F<PERL_ENV_TABLES> (see L<perlvms>) so that environ is not searched.
+(W prototype) You've called a function that has a prototype before the parser
+saw a definition or declaration for it, and Perl could not check that the call
+conforms to the prototype.  You need to either add an early prototype
+declaration for the subroutine in question, or move the subroutine definition
+ahead of the call to get proper prototype checking.  Alternatively, if you are
+certain that you're calling the function correctly, you may put an ampersand
+before the name to avoid the warning.  See L<perlsub>.
 
-=item Can't "redo" outside a loop block
+=item / cannot take a count
 
-(F) A "redo" statement was executed to restart the current block, but
-there isn't a current block.  Note that an "if" or "else" block doesn't
-count as a "loopish" block, as doesn't a block given to sort(), map()
-or grep().  You can usually double the curlies to get the same effect
-though, because the inner curlies will be considered a block that
-loops once.  See L<perlfunc/redo>.
+(F) You had an unpack template indicating a counted-length string,
+but you have also specified an explicit size for the string.
+See L<perlfunc/pack>.
 
 =item Can't bless non-reference value
 
@@ -629,9 +411,9 @@ encapsulation of objects.  See L<perlobj>.
 
 =item Can't break at that line
 
-(S internal) A warning intended to only be printed while running within the debugger, indicating
-the line number specified wasn't the location of a statement that could
-be stopped at.
+(S internal) A warning intended to only be printed while running within the
+debugger, indicating the line number specified wasn't the location of a
+statement that could be stopped at.
 
 =item Can't call method "%s" in empty package "%s"
 
@@ -639,6 +421,16 @@ be stopped at.
 functioning as a class, but that package doesn't have ANYTHING defined
 in it, let alone methods.  See L<perlobj>.
 
+=item Can't call method "%s" on an undefined value
+
+(F) You used the syntax of a method call, but the slot filled by the
+object reference or package name contains an undefined value.
+Something like this will reproduce the error:
+
+    $BADREF = undef;
+    process $BADREF 1,2,3;
+    $BADREF->process(1,2,3);
+
 =item Can't call method "%s" on unblessed reference
 
 (F) A method call must know in what package it's supposed to run.  It
@@ -657,16 +449,6 @@ Something like this will reproduce the error:
     process $BADREF 1,2,3;
     $BADREF->process(1,2,3);
 
-=item Can't call method "%s" on an undefined value
-
-(F) You used the syntax of a method call, but the slot filled by the
-object reference or package name contains an undefined value.
-Something like this will reproduce the error:
-
-    $BADREF = undef;
-    process $BADREF 1,2,3;
-    $BADREF->process(1,2,3);
-
 =item Can't chdir to %s
 
 (F) You called C<perl -x/foo/bar>, but C</foo/bar> is not a directory
@@ -676,6 +458,12 @@ that you can chdir to, possibly because it doesn't exist.
 
 (P) For some reason you can't check the filesystem of the script for nosuid.
 
+=item Can't coerce array into hash
+
+(F) You used an array where a hash was expected, but the array has no
+information on how to map from keys to array indices.  You can do that
+only with arrays that have a hash reference at index 0.
+
 =item Can't coerce %s to integer in %s
 
 (F) Certain types of SVs, in particular real symbol table entries
@@ -701,12 +489,6 @@ but then $foo no longer contains a glob.
 (F) Certain types of SVs, in particular real symbol table entries
 (typeglobs), can't be forced to stop being what they are.
 
-=item Can't coerce array into hash
-
-(F) You used an array where a hash was expected, but the array has no
-information on how to map from keys to array indices.  You can do that
-only with arrays that have a hash reference at index 0.
-
 =item Can't create pipe mailbox
 
 (P) An error peculiar to VMS.  The process is suffering from exhausted quotas
@@ -723,6 +505,11 @@ for other types of variables in future.
 (F) Only scalar, array, and hash variables may be declared as "my" or
 "our" variables.  They must have ordinary identifiers as names.
 
+=item Can't do inplace edit: %s is not a regular file
+
+(S inplace) You tried to use the B<-i> switch on a special file, such as a file in
+/dev, or a FIFO.  The file was ignored.
+
 =item Can't do inplace edit on %s: %s
 
 (S inplace) The creation of the new file failed for the indicated reason.
@@ -739,10 +526,10 @@ such.
 characters and Perl was unable to create a unique filename during
 inplace editing with the B<-i> switch.  The file was ignored.
 
-=item Can't do inplace edit: %s is not a regular file
+=item Can't do {n,m} with n > m
 
-(S inplace) You tried to use the B<-i> switch on a special file, such as a file in
-/dev, or a FIFO.  The file was ignored.
+(F) Minima must be less than or equal to maxima.  If you really want
+your regexp to match something 0 times, just put {0}.  See L<perlre>.
 
 =item Can't do setegid!
 
@@ -767,11 +554,6 @@ your sysadmin why he and/or she removed it.
 (F) This machine doesn't have either waitpid() or wait4(), so only waitpid()
 without flags is emulated.
 
-=item Can't do {n,m} with n > m
-
-(F) Minima must be less than or equal to maxima.  If you really want
-your regexp to match something 0 times, just put {0}.  See L<perlre>.
-
 =item Can't emulate -%s on #! line
 
 (F) The #! line specifies a switch that doesn't make sense at this point.
@@ -781,10 +563,10 @@ For example, it'd be kind of silly to put a B<-x> on the #! line.
 
 (W exec) An system(), exec(), or piped open call could not execute the named
 program for the indicated reason.  Typical reasons include: the permissions
-were wrong on the file, the file wasn't found in C<$ENV{PATH}>, the
-executable in question was compiled for another architecture, or the
-#! line in a script points to an interpreter that can't be run for
-similar reasons.  (Or maybe your system doesn't support #! at all.)
+were wrong on the file, the file wasn't found in C<$ENV{PATH}>, the executable
+in question was compiled for another architecture, or the #! line in a script
+points to an interpreter that can't be run for similar reasons.  (Or maybe
+your system doesn't support #! at all.)
 
 =item Can't exec %s
 
@@ -797,21 +579,26 @@ mention "perl" on the #! line somewhere.
 (F) You used the B<-S> switch, but the copies of the script to execute found
 in the PATH did not have correct permissions.
 
-=item Can't find %s on PATH, '.' not in PATH
+=item Can't find an opnumber for "%s"
+
+(F) A string of a form C<CORE::word> was given to prototype(), but
+there is no builtin with the name C<word>.
 
-(F) You used the B<-S> switch, but the script to execute could not be found
-in the PATH, or at least not with the correct permissions.  The script
-exists in the current directory, but PATH prohibits running it.
+=item Can't find label %s
+
+(F) You said to goto a label that isn't mentioned anywhere that it's possible
+for us to go to.  See L<perlfunc/goto>.
 
 =item Can't find %s on PATH
 
 (F) You used the B<-S> switch, but the script to execute could not be found
 in the PATH.
 
-=item Can't find label %s
+=item Can't find %s on PATH, '.' not in PATH
 
-(F) You said to goto a label that isn't mentioned anywhere that it's possible
-for us to go to.  See L<perlfunc/goto>.
+(F) You used the B<-S> switch, but the script to execute could not be found
+in the PATH, or at least not with the correct permissions.  The script
+exists in the current directory, but PATH prohibits running it.
 
 =item Can't find string terminator %s anywhere before EOF
 
@@ -856,33 +643,48 @@ can't retrieve its name for later use.
 (P) An error peculiar to VMS.  Perl asked $GETSYI how big you want your
 mailbox buffers to be, and didn't get an answer.
 
-=item Can't goto subroutine outside a subroutine
+=item Can't "goto" into the middle of a foreach loop
 
-(F) The deeply magical "goto subroutine" call can only replace one subroutine
-call for another.  It can't manufacture one out of whole cloth.  In general
-you should be calling it out of only an AUTOLOAD routine anyway.  See
-L<perlfunc/goto>.
+(F) A "goto" statement was executed to jump into the middle of a
+foreach loop.  You can't get there from here.  See L<perlfunc/goto>.
+
+=item Can't "goto" out of a pseudo block
+
+(F) A "goto" statement was executed to jump out of what might look
+like a block, except that it isn't a proper block.  This usually
+occurs if you tried to jump out of a sort() block or subroutine, which
+is a no-no.  See L<perlfunc/goto>.
 
 =item Can't goto subroutine from an eval-string
 
 (F) The "goto subroutine" call can't be used to jump out of an eval "string".
 (You can use it to jump out of an eval {BLOCK}, but you probably don't want to.)
 
+=item Can't goto subroutine outside a subroutine
+
+(F) The deeply magical "goto subroutine" call can only replace one subroutine
+call for another.  It can't manufacture one out of whole cloth.  In general
+you should be calling it out of only an AUTOLOAD routine anyway.  See
+L<perlfunc/goto>.
+
 =item Can't ignore signal CHLD, forcing to default
 
 (W signal) Perl has detected that it is being run with the SIGCHLD signal
-(sometimes known as SIGCLD) disabled.  Since disabling this signal
-will interfere with proper determination of exit status of child
-processes, Perl has reset the signal to its default value.
-This situation typically indicates that the parent program under
-which Perl may be running (e.g. cron) is being very careless.
+(sometimes known as SIGCLD) disabled.  Since disabling this signal will
+interfere with proper determination of exit status of child processes, Perl
+has reset the signal to its default value.  This situation typically indicates
+that the parent program under which Perl may be running (e.g. cron) is being
+very careless.
 
-=item Can't localize through a reference
+=item Can't "last" outside a loop block
 
-(F) You said something like C<local $$ref>, which Perl can't currently
-handle, because when it goes to restore the old value of whatever $ref
-pointed to after the scope of the local() is finished, it can't be
-sure that $ref will still be a reference.  
+(F) A "last" statement was executed to break out of the current block,
+except that there's this itty bitty problem called there isn't a
+current block.  Note that an "if" or "else" block doesn't count as a
+"loopish" block, as doesn't a block given to sort(), map() or grep().
+You can usually double the curlies to get the same effect though,
+because the inner curlies will be considered a block that loops once.
+See L<perlfunc/last>.
 
 =item Can't localize lexical variable %s
 
@@ -898,12 +700,12 @@ a reference to a pseudo-hash.  That hasn't been implemented yet, but
 you can get a similar effect by localizing the corresponding array
 element directly -- C<< local $ar->[$ar->[0]{'key'}] >>.
 
-=item Can't locate auto/%s.al in @INC
+=item Can't localize through a reference
 
-(F) A function (or method) was called in a package which allows autoload,
-but there is no function to autoload.  Most probable causes are a misprint
-in a function/method name or a failure to C<AutoSplit> the file, say, by
-doing C<make install>.
+(F) You said something like C<local $$ref>, which Perl can't currently
+handle, because when it goes to restore the old value of whatever $ref
+pointed to after the scope of the local() is finished, it can't be
+sure that $ref will still be a reference.  
 
 =item Can't locate %s
 
@@ -915,6 +717,13 @@ library is, or maybe the script needs to add the library name to @INC.  Or
 maybe you just misspelled the name of the file.  See L<perlfunc/require>
 and L<lib>.
 
+=item Can't locate auto/%s.al in @INC
+
+(F) A function (or method) was called in a package which allows autoload,
+but there is no function to autoload.  Most probable causes are a misprint
+in a function/method name or a failure to C<AutoSplit> the file, say, by
+doing C<make install>.
+
 =item Can't locate object method "%s" via package "%s"
 
 (F) You called a method correctly, and it correctly indicated a package
@@ -923,8 +732,8 @@ method, nor does any of its base classes.  See L<perlobj>.
 
 =item Can't locate package %s for @%s::ISA
 
-(W syntax) The @ISA array contained the name of another package that doesn't seem
-to exist.
+(W syntax) The @ISA array contained the name of another package that doesn't
+seem to exist.
 
 =item Can't make list assignment to \%ENV on this system
 
@@ -935,21 +744,30 @@ to exist.
 (F) You aren't allowed to assign to the item indicated, or otherwise try to
 change it, such as with an auto-increment.
 
-=item Can't modify non-lvalue subroutine call
-
-(F) Subroutines meant to be used in lvalue context should be declared as
-such, see L<perlsub/"Lvalue subroutines">.
-
 =item Can't modify nonexistent substring
 
 (P) The internal routine that does assignment to a substr() was handed
 a NULL.
 
+=item Can't modify non-lvalue subroutine call
+
+(F) Subroutines meant to be used in lvalue context should be declared as
+such, see L<perlsub/"Lvalue subroutines">.
+
 =item Can't msgrcv to read-only var
 
 (F) The target of a msgrcv must be modifiable to be used as a receive
 buffer.
 
+=item Can't "next" outside a loop block
+
+(F) A "next" statement was executed to reiterate the current block, but
+there isn't a current block.  Note that an "if" or "else" block doesn't
+count as a "loopish" block, as doesn't a block given to sort(), map()
+or grep().  You can usually double the curlies to get the same effect
+though, because the inner curlies will be considered a block that
+loops once.  See L<perlfunc/next>.
+
 =item Can't open %s: %s
 
 (S inplace) The implicit opening of a file through use of the C<< <> >>
@@ -960,10 +778,10 @@ on the command line.
 
 =item Can't open bidirectional pipe
 
-(W pipe) You tried to say C<open(CMD, "|cmd|")>, which is not supported.  You can
-try any of several modules in the Perl library to do this, such as
-IPC::Open2.  Alternately, direct the pipe's output to a file using ">",
-and then read it in under a different file handle.
+(W pipe) You tried to say C<open(CMD, "|cmd|")>, which is not supported.  You
+can try any of several modules in the Perl library to do this, such as
+IPC::Open2.  Alternately, direct the pipe's output to a file using ">", and
+then read it in under a different file handle.
 
 =item Can't open error file %s as stderr
 
@@ -991,6 +809,13 @@ couldn't open the pipe into which to send data destined for stdout.
 
 (F) The script you specified can't be opened for the indicated reason.
 
+=item Can't read CRTL environ
+
+(S) A warning peculiar to VMS.  Perl tried to read an element of %ENV
+from the CRTL's internal environment array and discovered the array was
+missing.  You need to figure out where your CRTL misplaced its environ
+or define F<PERL_ENV_TABLES> (see L<perlvms>) so that environ is not searched.
+
 =item Can't redefine active sort subroutine %s
 
 (F) Perl optimizes the internal handling of sort subroutines and keeps
@@ -998,6 +823,15 @@ pointers into them.  You tried to redefine one such sort subroutine when it
 was currently active, which is not allowed.  If you really want to do
 this, you should write C<sort { &func } @x> instead of C<sort func @x>.
 
+=item Can't "redo" outside a loop block
+
+(F) A "redo" statement was executed to restart the current block, but
+there isn't a current block.  Note that an "if" or "else" block doesn't
+count as a "loopish" block, as doesn't a block given to sort(), map()
+or grep().  You can usually double the curlies to get the same effect
+though, because the inner curlies will be considered a block that
+loops once.  See L<perlfunc/redo>.
+
 =item Can't remove %s: %s, skipping file 
 
 (S inplace) You requested an inplace edit without creating a backup file.  Perl
@@ -1014,22 +848,28 @@ probably because you don't have write permission to the directory.
 (P) An error peculiar to VMS.  Perl thought stdin was a pipe, and tried to
 reopen it to accept binary data.  Alas, it failed.
 
+=item Can't resolve method `%s' overloading `%s' in package `%s'
+
+(F|P) Error resolving overloading specified by a method name (as
+opposed to a subroutine reference): no such method callable via the
+package. If method name is C<???>, this is an internal error.
+
 =item Can't reswap uid and euid
 
 (P) The setreuid() call failed for some reason in the setuid emulator
 of suidperl.
 
-=item Can't return outside a subroutine
-
-(F) The return statement was executed in mainline code, that is, where
-there was no subroutine call to return out of.  See L<perlsub>.
-
 =item Can't return %s from lvalue subroutine
 
 (F) Perl detected an attempt to return illegal lvalues (such
 as temporary or readonly values) from a subroutine used as an lvalue.
 This is not allowed.
 
+=item Can't return outside a subroutine
+
+(F) The return statement was executed in mainline code, that is, where
+there was no subroutine call to return out of.  See L<perlsub>.
+
 =item Can't stat script "%s"
 
 (P) For some reason you can't fstat() the script even though you have
@@ -1077,12 +917,34 @@ message indicates that such a conversion was attempted.
 of upgradability.  Upgrading to undef indicates an error in the
 code calling sv_upgrade.
 
+=item Can't use an undefined value as %s reference
+
+(F) A value used as either a hard reference or a symbolic reference must
+be a defined value.  This helps to delurk some insidious errors.
+
+=item Can't use bareword ("%s") as %s ref while "strict refs" in use
+
+(F) Only hard references are allowed by "strict refs".  Symbolic references
+are disallowed.  See L<perlref>.
+
 =item Can't use %%! because Errno.pm is not available
 
 (F) The first time the %! hash is used, perl automatically loads the
 Errno.pm module. The Errno module is expected to tie the %! hash to
 provide symbolic names for C<$!> errno values.
 
+=item Can't use %s for loop variable
+
+(F) Only a simple scalar variable may be used as a loop variable on a foreach.
+
+=item Can't use global %s in "my"
+
+(F) You tried to declare a magical variable as a lexical variable.  This is
+not allowed, because the magic can be tied to only one location (namely
+the global variable) and it would be incredibly confusing to have
+variables in your program that looked like magical variables but
+weren't.
+
 =item Can't use "my %s" in sort comparison
 
 (F) The global variables $a and $b are reserved for sort comparisons.
@@ -1091,53 +953,31 @@ and the variable had earlier been declared as a lexical variable.
 Either qualify the sort variable with the package name, or rename the
 lexical variable.
 
-=item Can't use %s for loop variable
-
-(F) Only a simple scalar variable may be used as a loop variable on a foreach.
-
 =item Can't use %s ref as %s ref
 
 (F) You've mixed up your reference types.  You have to dereference a
 reference of the type needed.  You can use the ref() function to
 test the type of the reference, if need be.
 
-=item Can't use \%c to mean $%c in expression
-
-(W syntax) In an ordinary expression, backslash is a unary operator that creates
-a reference to its argument.  The use of backslash to indicate a backreference
-to a matched substring is valid only as part of a regular expression pattern.
-Trying to do this in ordinary Perl code produces a value that prints
-out looking like SCALAR(0xdecaf).  Use the $1 form instead.
-
-=item Can't use bareword ("%s") as %s ref while "strict refs" in use
-
-(F) Only hard references are allowed by "strict refs".  Symbolic references
-are disallowed.  See L<perlref>.
-
 =item Can't use string ("%s") as %s ref while "strict refs" in use
 
 (F) Only hard references are allowed by "strict refs".  Symbolic references
 are disallowed.  See L<perlref>.
 
-=item Can't use an undefined value as %s reference
-
-(F) A value used as either a hard reference or a symbolic reference must
-be a defined value.  This helps to delurk some insidious errors.
-
-=item Can't use global %s in "my"
-
-(F) You tried to declare a magical variable as a lexical variable.  This is
-not allowed, because the magic can be tied to only one location (namely
-the global variable) and it would be incredibly confusing to have
-variables in your program that looked like magical variables but
-weren't.
-
 =item Can't use subscript on %s
 
 (F) The compiler tried to interpret a bracketed expression as a
 subscript.  But to the left of the brackets was an expression that
 didn't look like an array reference, or anything else subscriptable.
 
+=item Can't use \%c to mean $%c in expression
+
+(W syntax) In an ordinary expression, backslash is a unary operator that
+creates a reference to its argument.  The use of backslash to indicate a
+backreference to a matched substring is valid only as part of a regular
+expression pattern.  Trying to do this in ordinary Perl code produces a value
+that prints out looking like SCALAR(0xdecaf).  Use the $1 form instead.
+
 =item Can't weaken a nonreference
 
 (F) You attempted to weaken something that was not a reference.  Only
@@ -1149,45 +989,33 @@ references can be weakened.
 an assignment operator, which implies modifying the value itself.
 Perhaps you need to copy the value to a temporary, and repeat that.
 
-=item Can't find an opnumber for "%s"
-
-(F) A string of a form C<CORE::word> was given to prototype(), but
-there is no builtin with the name C<word>.
-
-=item Can't resolve method `%s' overloading `%s' in package `%s'
-
-(F|P) Error resolving overloading specified by a method name (as
-opposed to a subroutine reference): no such method callable via the
-package. If method name is C<???>, this is an internal error.
-
-=item Character class [:%s:] unknown
-
-(F) The class in the character class [: :] syntax is unknown.
-See L<perlre>.
-
 =item Character class syntax [%s] belongs inside character classes
 
 (W unsafe) The character class constructs [: :], [= =], and [. .]  go
-I<inside> character classes, the [] are part of the construct,
-for example: /[012[:alpha:]345]/.  Note that [= =] and [. .]
-are not currently implemented; they are simply placeholders for
-future extensions.
+I<inside> character classes, the [] are part of the construct, for example:
+/[012[:alpha:]345]/.  Note that [= =] and [. .] are not currently implemented;
+they are simply placeholders for future extensions.
 
 =item Character class syntax [. .] is reserved for future extensions
 
-(W regexp) Within regular expression character classes ([]) the syntax beginning
-with "[." and ending with ".]" is reserved for future extensions.
-If you need to represent those character sequences inside a regular
-expression character class, just quote the square brackets with the
-backslash: "\[." and ".\]".
+(W regexp) Within regular expression character classes ([]) the syntax
+beginning with "[." and ending with ".]" is reserved for future extensions.
+If you need to represent those character sequences inside a regular expression
+character class, just quote the square brackets with the backslash: "\[." and
+".\]".
 
 =item Character class syntax [= =] is reserved for future extensions
 
 (W regexp) Within regular expression character classes ([]) the syntax
 beginning with "[=" and ending with "=]" is reserved for future extensions.
-If you need to represent those character sequences inside a regular
-expression character class, just quote the square brackets with the
-backslash: "\[=" and "=\]".
+If you need to represent those character sequences inside a regular expression
+character class, just quote the square brackets with the backslash: "\[=" and
+"=\]".
+
+=item Character class [:%s:] unknown
+
+(F) The class in the character class [: :] syntax is unknown.
+See L<perlre>.
 
 =item chmod() mode argument is missing initial 0
 
@@ -1202,6 +1030,12 @@ to 01411.  Octal constants are introduced with a leading 0 in Perl, as in C.
 
 (W unopened) You tried to close a filehandle that was never opened.
 
+=item %s: Command not found
+
+(A) You've accidentally run your script through B<csh> instead
+of Perl.  Check the #! line, or manually feed your script into
+Perl yourself.
+
 =item Compilation failed in require
 
 (F) Perl could not compile a file specified in a C<require> statement.
@@ -1211,19 +1045,25 @@ were severe enough to halt compilation immediately.
 =item Complex regular subexpression recursion limit (%d) exceeded
 
 (W regexp) The regular expression engine uses recursion in complex situations
-where back-tracking is required.  Recursion depth is limited to 32766,
-or perhaps less in architectures where the stack cannot grow
-arbitrarily.  ("Simple" and "medium" situations are handled without
-recursion and are not subject to a limit.)  Try shortening the string
-under examination; looping in Perl code (e.g. with C<while>) rather
-than in the regular expression engine; or rewriting the regular
-expression so that it is simpler or backtracks less.  (See L<perlbook>
-for information on I<Mastering Regular Expressions>.)
+where back-tracking is required.  Recursion depth is limited to 32766, or
+perhaps less in architectures where the stack cannot grow arbitrarily.
+("Simple" and "medium" situations are handled without recursion and are not
+subject to a limit.)  Try shortening the string under examination; looping in
+Perl code (e.g. with C<while>) rather than in the regular expression engine;
+or rewriting the regular expression so that it is simpler or backtracks less.
+(See L<perlbook> for information on I<Mastering Regular Expressions>.)
 
 =item connect() on closed socket %s
 
-(W closed) You tried to do a connect on a closed socket.  Did you forget to check
-the return value of your socket() call?  See L<perlfunc/connect>.
+(W closed) You tried to do a connect on a closed socket.  Did you forget to
+check the return value of your socket() call?  See L<perlfunc/connect>.
+
+=item constant(%s): %s
+
+(F) The parser found inconsistencies either while attempting to define an
+overloaded constant, or when trying to find the character name specified
+in the C<\N{...}> escape.  Perhaps you forgot to load the corresponding
+C<overload> or C<charnames> pragma?  See L<charnames> and L<overload>.
 
 =item Constant is not %s reference
 
@@ -1242,15 +1082,7 @@ workarounds.
 =item Constant subroutine %s undefined
 
 (W misc) You undefined a subroutine which had previously been eligible for
-inlining.  See L<perlsub/"Constant Functions"> for commentary and
-workarounds.
-
-=item constant(%s): %s
-
-(F) The parser found inconsistencies either while attempting to define an
-overloaded constant, or when trying to find the character name specified
-in the C<\N{...}> escape.  Perhaps you forgot to load the corresponding
-C<overload> or C<charnames> pragma?  See L<charnames> and L<overload>.
+inlining.  See L<perlsub/"Constant Functions"> for commentary and workarounds.
 
 =item Copy method did not return a reference
 
@@ -1260,10 +1092,6 @@ C<overload> or C<charnames> pragma?  See L<charnames> and L<overload>.
 
 (F) The CORE:: namespace is reserved for Perl keywords.
 
-=item Corrupt malloc ptr 0x%lx at 0x%lx
-
-(P) The malloc package that comes with Perl had an internal failure.
-
 =item corrupted regexp pointers
 
 (P) The regular expression engine got confused by what the regular
@@ -1274,12 +1102,27 @@ expression compiler gave it.
 (P) The regular expression engine got passed a regexp program without
 a valid magic number.
 
+=item Corrupt malloc ptr 0x%lx at 0x%lx
+
+(P) The malloc package that comes with Perl had an internal failure.
+
+=item C<-p> destination: %s
+
+(F) An error occurred during the implicit output invoked by the C<-p>
+command-line switch.  (This output goes to STDOUT unless you've
+redirected it with select().)
+
+=item C<-T> and C<-B> not implemented on filehandles
+
+(F) Perl can't peek at the stdio buffer of filehandles when it doesn't
+know about your kind of stdio.  You'll have to use a filename instead.
+
 =item Deep recursion on subroutine "%s"
 
 (W recursion) This subroutine has called itself (directly or indirectly) 100
 times more than it has returned.  This probably indicates an infinite
-recursion, unless you're writing strange benchmark programs, in which
-case it indicates something else.
+recursion, unless you're writing strange benchmark programs, in which case it
+indicates something else.
 
 =item defined(@array) is deprecated
 
@@ -1303,6 +1146,13 @@ twisted to write code that triggers this error.
 
 See Server error.
 
+=item %s did not return a true value
+
+(F) A required (or used) file must return a true value to indicate that
+it compiled correctly and ran its initialization code correctly.  It's
+traditional to end such a file with a "1;", though any true value would
+do.  See L<perlfunc/require>.
+
 =item (Did you mean &%s instead?)
 
 (W) You probably referred to an imported subroutine &FOO as $FOO or some such.
@@ -1322,18 +1172,6 @@ On the other hand, maybe you just meant %hash and got carried away.
 (F) You passed die() an empty string (the equivalent of C<die "">) or
 you called it with no args and both C<$@> and C<$_> were empty.
 
-=item (Do you need to predeclare %s?)
-
-(S) This is an educated guess made in conjunction with the message "%s
-found where operator expected".  It often means a subroutine or module
-name is being referenced that hasn't been declared yet.  This may be
-because of ordering problems in your file, or because of a missing
-"sub", "package", "require", or "use" statement.  If you're
-referencing something that isn't defined yet, you don't actually have
-to define the subroutine or package before the current location.  You
-can use an empty "sub foo;" or "package FOO;" to enter a "forward"
-declaration.
-
 =item Document contains no data
 
 See Server error.
@@ -1344,7 +1182,19 @@ See Server error.
 
 =item do_study: out of memory
 
-(P) This should have been caught by safemalloc() instead.
+(P) This should have been caught by safemalloc() instead.
+
+=item (Do you need to predeclare %s?)
+
+(S) This is an educated guess made in conjunction with the message "%s
+found where operator expected".  It often means a subroutine or module
+name is being referenced that hasn't been declared yet.  This may be
+because of ordering problems in your file, or because of a missing
+"sub", "package", "require", or "use" statement.  If you're
+referencing something that isn't defined yet, you don't actually have
+to define the subroutine or package before the current location.  You
+can use an empty "sub foo;" or "package FOO;" to enter a "forward"
+declaration.
 
 =item Duplicate free() ignored
 
@@ -1358,12 +1208,6 @@ ugly.  Your code will be interpreted as an attempt to call a method
 named "elseif" for the class returned by the following block.  This is
 unlikely to be what you want.
 
-=item %s failed--call queue aborted
-
-(F) An untrapped exception was raised while executing a CHECK, INIT, or
-END subroutine.  Processing of the remainder of the queue of such
-routines has been prematurely ended.
-
 =item entering effective %s failed
 
 (F) While under the C<use filetest> pragma, switching the real and
@@ -1383,12 +1227,6 @@ case the conversion routines don't handle.  Drat.
 that contains the C<(?{ ... })> zero-width assertion, which is unsafe.
 See L<perlre/(?{ code })>, and L<perlsec>.
 
-=item %s: Eval-group not allowed, use re 'eval'
-
-(F) A regular expression contained the C<(?{ ... })> zero-width assertion,
-but that construct is only allowed when the C<use re 'eval'> pragma is
-in effect.  See L<perlre/(?{ code })>.
-
 =item %s: Eval-group not allowed at run time
 
 (F) Perl tried to compile a regular expression containing the C<(?{ ... })>
@@ -1398,6 +1236,12 @@ If you insist, you may still do this by explicitly building the pattern
 from an interpolated string at run time and using that in an eval().
 See L<perlre/(?{ code })>.
 
+=item %s: Eval-group not allowed, use re 'eval'
+
+(F) A regular expression contained the C<(?{ ... })> zero-width assertion,
+but that construct is only allowed when the C<use re 'eval'> pragma is
+in effect.  See L<perlre/(?{ code })>.
+
 =item Excessively long <> operator
 
 (F) The contents of a <> operator may not exceed the maximum size of a
@@ -1411,43 +1255,55 @@ variable and glob that.
 
 =item Exiting eval via %s
 
-(W exiting) You are exiting an eval by unconventional means, such as
-a goto, or a loop control statement.
+(W exiting) You are exiting an eval by unconventional means, such as a goto,
+or a loop control statement.
 
 =item Exiting format via %s
 
-(W exiting) You are exiting an eval by unconventional means, such as
-a goto, or a loop control statement.
+(W exiting) You are exiting an eval by unconventional means, such as a goto,
+or a loop control statement.
 
 =item Exiting pseudo-block via %s
 
-(W exiting) You are exiting a rather special block construct (like a sort block or
-subroutine) by unconventional means, such as a goto, or a loop control
-statement.  See L<perlfunc/sort>.
+(W exiting) You are exiting a rather special block construct (like a sort
+block or subroutine) by unconventional means, such as a goto, or a loop
+control statement.  See L<perlfunc/sort>.
 
 =item Exiting subroutine via %s
 
-(W exiting) You are exiting a subroutine by unconventional means, such as
-goto, or a loop control statement.
+(W exiting) You are exiting a subroutine by unconventional means, such as a
+goto, or a loop control statement.
 
 =item Exiting substitution via %s
 
-(W exiting) You are exiting a substitution by unconventional means, such as
-return, a goto, or a loop control statement.
+(W exiting) You are exiting a substitution by unconventional means, such as a
+return, a goto, or a loop control statement.
 
 =item Explicit blessing to '' (assuming package main)
 
-(W misc) You are blessing a reference to a zero length string.  This has
-the effect of blessing the reference into the package main.  This is
-usually not what you want.  Consider providing a default target
-package, e.g. bless($ref, $p || 'MyPackage');
+(W misc) You are blessing a reference to a zero length string.  This has the
+effect of blessing the reference into the package main.  This is usually not
+what you want.  Consider providing a default target package, e.g. bless($ref,
+$p || 'MyPackage');
+
+=item %s: Expression syntax
+
+(A) You've accidentally run your script through B<csh> instead
+of Perl.  Check the #! line, or manually feed your script into
+Perl yourself.
+
+=item %s failed--call queue aborted
+
+(F) An untrapped exception was raised while executing a CHECK, INIT, or
+END subroutine.  Processing of the remainder of the queue of such
+routines has been prematurely ended.
 
 =item false [] range "%s" in regexp
 
-(W regexp) A character class range must start and end at a literal character, not
-another character class like C<\d> or C<[:alpha:]>.  The "-" in your false
-range is interpreted as a literal "-".  Consider quoting the "-",  "\-".
-See L<perlre>.
+(W regexp) A character class range must start and end at a literal character,
+not another character class like C<\d> or C<[:alpha:]>.  The "-" in your false
+range is interpreted as a literal "-".  Consider quoting the "-",  "\-".  See
+L<perlre>.
 
 =item Fatal VMS error at %s, line %d
 
@@ -1463,25 +1319,23 @@ PDP-11 or something?
 
 =item Filehandle %s never opened
 
-(W unopened) An I/O operation was attempted on a filehandle that was never initialized.
-You need to do an open() or a socket() call, or call a constructor from
-the FileHandle package.
+(W unopened) An I/O operation was attempted on a filehandle that was never
+initialized.  You need to do an open() or a socket() call, or call a
+constructor from the FileHandle package.
 
 =item Filehandle %s opened only for input
 
-(W io) You tried to write on a read-only filehandle.  If you
-intended it to be a read-write filehandle, you needed to open it with
-"+<" or "+>" or "+>>" instead of with "<" or nothing.  If
-you intended only to write the file, use ">" or ">>".  See
-L<perlfunc/open>.
+(W io) You tried to write on a read-only filehandle.  If you intended it to be
+a read-write filehandle, you needed to open it with "+<" or "+>" or "+>>"
+instead of with "<" or nothing.  If you intended only to write the file, use
+">" or ">>".  See L<perlfunc/open>.
 
 =item Filehandle %s opened only for output
 
 (W io) You tried to read from a filehandle opened only for writing.  If you
-intended it to be a read/write filehandle, you needed to open it with
-"+<" or "+>" or "+>>" instead of with "<" or nothing.  If
-you intended only to read from the file, use "<".  See
-L<perlfunc/open>.
+intended it to be a read/write filehandle, you needed to open it with "+<" or
+"+>" or "+>>" instead of with "<" or nothing.  If you intended only to read
+from the file, use "<".  See L<perlfunc/open>.
 
 =item Final $ should be \$ or $name
 
@@ -1503,6 +1357,16 @@ the name.
 time before now.  Check your logic flow.  flock() operates on filehandles.
 Are you attempting to call flock() on a dirhandle by the same name?
 
+=item ?+* follows nothing in regexp
+
+(F) You started a regular expression with a quantifier.  Backslash it
+if you meant it literally.   See L<perlre>.
+
+=item Format not terminated
+
+(F) A format must be terminated by a line with a solitary dot.  Perl got
+to the end of your file without finding such a line.
+
 =item Format %s redefined
 
 (W redefine) You redefined a format.  To suppress this warning, say
@@ -1512,11 +1376,6 @@ Are you attempting to call flock() on a dirhandle by the same name?
        eval "format NAME =...";
     }
 
-=item Format not terminated
-
-(F) A format must be terminated by a line with a solitary dot.  Perl got
-to the end of your file without finding such a line.
-
 =item Found = in conditional, should be ==
 
 (W syntax) You said
@@ -1529,6 +1388,13 @@ when you meant
 
 (or something like that).
 
+=item %s found where operator expected
+
+(S) The Perl lexer knows whether to expect a term or an operator.  If it
+sees what it knows to be a term when it was expecting to see an operator,
+it gives you this warning.  Usually it indicates that an operator or
+delimiter was omitted, such as a semicolon.
+
 =item gdbm store returned %d, errno %d, key "%s"
 
 (S) A warning from the GDBM_File extension that a store failed.
@@ -1549,19 +1415,31 @@ Did you forget to check the return value of your socket() call?
 (S) A warning peculiar to VMS.  The call to C<sys$getuai> underlying the
 C<getpwnam> operator returned an invalid UIC.
 
+=item getsockopt() on closed socket %s
+
+(W closed) You tried to get a socket option on a closed socket.  Did
+you forget to check the return value of your socket() call?  See
+L<perlfunc/getsockopt>.
+
+=item Global symbol "%s" requires explicit package name
+
+(F) You've said "use strict vars", which indicates that all variables
+must either be lexically scoped (using "my"), declared beforehand using
+"our", or explicitly qualified to say which package the global variable
+is in (using "::").
+
 =item glob failed (%s)
 
 (W glob) Something went wrong with the external program(s) used for C<glob>
-and C<< <*.c> >>.  Usually, this means that you supplied a C<glob>
-pattern that caused the external program to fail and exit with a nonzero
-status.  If the message indicates that the abnormal exit resulted in a
-coredump, this may also mean that your csh (C shell) is broken.  If so,
-you should change all of the csh-related variables in config.sh:  If you
-have tcsh, make the variables refer to it as if it were csh (e.g.
-C<full_csh='/usr/bin/tcsh'>); otherwise, make them all empty (except that
-C<d_csh> should be C<'undef'>) so that Perl will think csh is missing.
-In either case, after editing config.sh, run C<./Configure -S> and
-rebuild Perl.
+and C<< <*.c> >>.  Usually, this means that you supplied a C<glob> pattern
+that caused the external program to fail and exit with a nonzero status.  If
+the message indicates that the abnormal exit resulted in a coredump, this may
+also mean that your csh (C shell) is broken.  If so, you should change all of
+the csh-related variables in config.sh:  If you have tcsh, make the variables
+refer to it as if it were csh (e.g.  C<full_csh='/usr/bin/tcsh'>); otherwise,
+make them all empty (except that C<d_csh> should be C<'undef'>) so that Perl
+will think csh is missing.  In either case, after editing config.sh, run
+C<./Configure -S> and rebuild Perl.
 
 =item Glob not terminated
 
@@ -1570,18 +1448,20 @@ a term, so it's looking for the corresponding right angle bracket, and not
 finding it.  Chances are you left some needed parentheses out earlier in
 the line, and you really meant a "less than".
 
-=item Global symbol "%s" requires explicit package name
+=item Got an error from DosAllocMem
 
-(F) You've said "use strict vars", which indicates that all variables
-must either be lexically scoped (using "my"), declared beforehand using
-"our", or explicitly qualified to say which package the global variable
-is in (using "::").
+(P) An error peculiar to OS/2.  Most probably you're using an obsolete
+version of Perl, and this should not happen anyway.
 
 =item goto must have label
 
 (F) Unlike with "next" or "last", you're not allowed to goto an
 unspecified destination.  See L<perlfunc/goto>.
 
+=item %s had compilation errors
+
+(F) The final summary message when a C<perl -c> fails.
+
 =item Had to create %s unexpectedly
 
 (S internal) A routine asked for a symbol from a symbol table that ought to have
@@ -1590,8 +1470,13 @@ an emergency basis to prevent a core dump.
 
 =item Hash %%s missing the % in argument %d of %s()
 
-(D deprecated) Really old Perl let you omit the % on hash names in some spots.  This
-is now heavily deprecated.
+(D deprecated) Really old Perl let you omit the % on hash names in some spots.
+This is now heavily deprecated.
+
+=item %s has too many errors
+
+(F) The parser has given up trying to parse the program after 10 errors.
+Further error messages would likely be uninformative.
 
 =item Hexadecimal number > 0xffffffff non-portable
 
@@ -1606,18 +1491,15 @@ about 250 characters for simple names, and somewhat more for compound
 names (like C<$A::B>).  You've exceeded Perl's limits.  Future
 versions of Perl are likely to eliminate these arbitrary limitations.
 
-=item Ill-formed CRTL environ value "%s"
+=item Illegal binary digit %s
 
-(W internal) A warning peculiar to VMS.  Perl tried to read the CRTL's internal
-environ array, and encountered an element without the C<=> delimiter
-used to separate keys from values.  The element is ignored.
+(F) You used a digit other than 0 or 1 in a binary number.
 
-=item Ill-formed message in prime_env_iter: |%s|
+=item Illegal binary digit %s ignored
 
-(W internal) A warning peculiar to VMS.  Perl tried to read a logical name
-or CLI symbol definition when preparing to iterate over %ENV, and
-didn't see the expected delimiter between key and value, so the
-line was ignored.
+(W digit) You may have tried to use a digit other than 0 or 1 in a binary
+number.  Interpretation of the binary number stopped before the offending
+digit.
 
 =item Illegal character %s (carriage return)
 
@@ -1632,54 +1514,58 @@ Talk to your Perl administrator.
 (F) You tried to divide a number by 0.  Either something was wrong in your
 logic, or you need to put a conditional in to guard against meaningless input.
 
+=item Illegal hexadecimal digit %s ignored
+
+(W digit) You may have tried to use a character other than 0 - 9 or A - F,
+a - f in a hexadecimal number.  Interpretation of the hexadecimal number
+stopped before the illegal character.
+
 =item Illegal modulus zero
 
 (F) You tried to divide a number by 0 to get the remainder.  Most numbers
 don't take to this kindly.
 
-=item Illegal binary digit %s
+=item Illegal number of bits in vec
 
-(F) You used a digit other than 0 or 1 in a binary number.
+(F) The number of bits in vec() (the third argument) must be a power of
+two from 1 to 32 (or 64, if your platform supports that).
 
 =item Illegal octal digit %s
 
 (F) You used an 8 or 9 in a octal number.
 
-=item Illegal binary digit %s ignored
-
-(W digit) You may have tried to use a digit other than 0 or 1 in a binary number.
-Interpretation of the binary number stopped before the offending digit.
-
 =item Illegal octal digit %s ignored
 
-(W digit) You may have tried to use an 8 or 9 in a octal number.  Interpretation
-of the octal number stopped before the 8 or 9.
+(W digit) You may have tried to use an 8 or 9 in a octal number.
+Interpretation of the octal number stopped before the 8 or 9.
 
-=item Illegal hexadecimal digit %s ignored
+=item Illegal switch in PERL5OPT: %s
 
-(W digit) You may have tried to use a character other than 0 - 9 or A - F, a - f
-in a hexadecimal number.  Interpretation of the hexadecimal number stopped
-before the illegal character.
+(X) The PERL5OPT environment variable may only be used to set the
+following switches: B<-[DIMUdmw]>.
 
-=item Illegal number of bits in vec
+=item Ill-formed CRTL environ value "%s"
 
-(F) The number of bits in vec() (the third argument) must be a power of
-two from 1 to 32 (or 64, if your platform supports that).
+(W internal) A warning peculiar to VMS.  Perl tried to read the CRTL's
+internal environ array, and encountered an element without the C<=> delimiter
+used to separate keys from values.  The element is ignored.
 
-=item Illegal switch in PERL5OPT: %s
+=item Ill-formed message in prime_env_iter: |%s|
 
-(X) The PERL5OPT environment variable may only be used to set the
-following switches: B<-[DIMUdmw]>.
+(W internal) A warning peculiar to VMS.  Perl tried to read a logical name or
+CLI symbol definition when preparing to iterate over %ENV, and didn't see the
+expected delimiter between key and value, so the line was ignored.
 
-=item In string, @%s now must be written as \@%s
+=item (in cleanup) %s
 
-(F) It used to be that Perl would try to guess whether you wanted an
-array interpolated or a literal @.  It did this when the string was first
-used at runtime.  Now strings are parsed at compile time, and ambiguous
-instances of @ must be disambiguated, either by prepending a backslash to
-indicate a literal, or by declaring (or using) the array within the
-program before the string (lexically).  (Someday it will simply assume
-that an unbackslashed @ interpolates an array.)
+(W misc) This prefix usually indicates that a DESTROY() method raised the
+indicated exception.  Since destructors are usually called by the system at
+arbitrary points during execution, and often a vast number of times, the
+warning is issued only once for any number of failures that would otherwise
+result in the same message being repeated.
+
+Failure of user callbacks dispatched using the C<G_KEEPERR> flag could also
+result in this warning.  See L<perlcall/G_KEEPERR>.
 
 =item Insecure dependency in %s
 
@@ -1705,10 +1591,20 @@ C<$ENV{ENV}> or C<$ENV{BASH_ENV}> are derived from data supplied (or
 potentially supplied) by the user.  The script must set the path to a
 known value, using trustworthy data.  See L<perlsec>.
 
+=item In string, @%s now must be written as \@%s
+
+(F) It used to be that Perl would try to guess whether you wanted an
+array interpolated or a literal @.  It did this when the string was first
+used at runtime.  Now strings are parsed at compile time, and ambiguous
+instances of @ must be disambiguated, either by prepending a backslash to
+indicate a literal, or by declaring (or using) the array within the
+program before the string (lexically).  (Someday it will simply assume
+that an unbackslashed @ interpolates an array.)
+
 =item Integer overflow in %s number
 
-(W overflow) The hexadecimal, octal or binary number you have specified either
-as a literal or as an argument to hex() or oct() is too big for your
+(W overflow) The hexadecimal, octal or binary number you have specified
+either as a literal or as an argument to hex() or oct() is too big for your
 architecture, and has been converted to a floating point number.  On a
 32-bit architecture the largest hexadecimal, octal or binary number
 representable without overflow is 0xFFFFFFFF, 037777777777, or
@@ -1717,6 +1613,10 @@ transparently promotes all numbers to a floating point representation
 internally--subject to loss of precision errors in subsequent
 operations.
 
+=item internal disaster in regexp
+
+(P) Something went badly wrong in the regular expression parser.
+
 =item Internal inconsistency in tracking vforks
 
 (S) A warning peculiar to VMS.  Perl keeps track of the number
@@ -1727,14 +1627,17 @@ has become scrambled, so Perl is making a guess and treating
 this C<exec> as a request to terminate the Perl script
 and execute the specified command.
 
-=item internal disaster in regexp
-
-(P) Something went badly wrong in the regular expression parser.
-
 =item internal urp in regexp at /%s/
 
 (P) Something went badly awry in the regular expression parser.
 
+=item %s (...) interpreted as function
+
+(W syntax) You've run afoul of the rule that says that any list operator
+followed by parentheses turns into a function, with all the list operators
+arguments found inside the parentheses.  See L<perlop/Terms and List Operators
+(Leftward)>.
+
 =item Invalid %s attribute: %s
 
 The indicated attribute for a subroutine or variable was not recognized
@@ -1745,16 +1648,16 @@ by Perl or by a user-supplied handler.  See L<attributes>.
 The indicated attributes for a subroutine or variable were not recognized
 by Perl or by a user-supplied handler.  See L<attributes>.
 
-=item invalid [] range "%s" in regexp
-
-(F) The range specified in a character class had a minimum character
-greater than the maximum character.  See L<perlre>.
-
 =item Invalid conversion in %s: "%s"
 
 (W printf) Perl does not understand the given format conversion.
 See L<perlfunc/sprintf>.
 
+=item invalid [] range "%s" in regexp
+
+(F) The range specified in a character class had a minimum character
+greater than the maximum character.  See L<perlre>.
+
 =item Invalid separator character %s in attribute list
 
 (F) Something other than a colon or whitespace was seen between the
@@ -1771,8 +1674,8 @@ ignored.
 =item Invalid type in unpack: '%s'
 
 (F) The given character is not a valid unpack type.  See L<perlfunc/unpack>.
-(W unpack) The given character is not a valid unpack type but used to be silently
-ignored.
+(W unpack) The given character is not a valid unpack type but used to be
+silently ignored.
 
 =item ioctl is not implemented
 
@@ -1808,8 +1711,8 @@ effective uids or gids failed.
 
 =item listen() on closed socket %s
 
-(W closed) You tried to do a listen on a closed socket.  Did you forget to check
-the return value of your socket() call?  See L<perlfunc/listen>.
+(W closed) You tried to do a listen on a closed socket.  Did you forget to
+check the return value of your socket() call?  See L<perlfunc/listen>.
 
 =item Lvalue subs returning %s not implemented yet
 
@@ -1817,6 +1720,32 @@ the return value of your socket() call?  See L<perlfunc/listen>.
 values cannot be returned in subroutines used in lvalue context.
 See L<perlsub/"Lvalue subroutines">.
 
+=item Malformed PERLLIB_PREFIX
+
+(F) An error peculiar to OS/2.  PERLLIB_PREFIX should be of the form
+
+    prefix1;prefix2
+
+or
+
+    prefix1 prefix2
+
+with nonempty prefix1 and prefix2.  If C<prefix1> is indeed a prefix
+of a builtin library search path, prefix2 is substituted.  The error
+may appear if components are not found, or are too long.  See
+"PERLLIB_PREFIX" in F<README.os2>.
+
+=item %s matches null string many times
+
+(W regexp) The pattern you've specified would be an infinite loop if the
+regular expression engine didn't specifically check for that.  See L<perlre>.
+
+=item % may only be used in unpack
+
+(F) You can't pack a string by supplying a checksum, because the
+checksumming process loses information, and you can't go the other
+way.  See L<perlfunc/unpack>.
+
 =item Method for operation %s not found in package %s during blessing
 
 (F) An attempt was made to specify an entry in an overloading table that
@@ -1836,12 +1765,6 @@ ended earlier on the current line.
 
 (W syntax) An underline in a decimal constant wasn't on a 3-digit boundary.
 
-=item Missing $ on loop variable
-
-(F) Apparently you've been programming in B<csh> too much.  Variables are always
-mentioned with the $ in Perl, unlike in the shells, where it can vary from
-one line to the next.
-
 =item Missing %sbrace%s on \N{}
 
 (F) Wrong syntax of character name literal C<\N{charname}> within
@@ -1857,6 +1780,17 @@ double-quotish context.
 (W pipe) You used the C<open(FH, "| command")> or C<open(FH, "command |")>
 construction, but the command was missing or blank.
 
+=item Missing name in "my sub"
+
+(F) The reserved syntax for lexically scoped subroutines requires that they
+have a name with which they can be found.
+
+=item Missing $ on loop variable
+
+(F) Apparently you've been programming in B<csh> too much.  Variables are always
+mentioned with the $ in Perl, unlike in the shells, where it can vary from
+one line to the next.
+
 =item (Missing operator before %s?)
 
 (S) This is an educated guess made in conjunction with the message "%s
@@ -1868,6 +1802,12 @@ found where operator expected".  Often the missing operator is a comma.
 closing ones.  As a general rule, you'll find it's missing near the place
 you were last editing.
 
+=item (Missing semicolon on previous line?)
+
+(S) This is an educated guess made in conjunction with the message "%s
+found where operator expected".  Don't automatically put a semicolon on
+the previous line just because you saw this message.
+
 =item Modification of a read-only value attempted
 
 (F) You tried, directly or indirectly, to change the value of a
@@ -1894,19 +1834,50 @@ be created for some peculiar reason.
 
 (F) Only a bare module name is allowed as the first argument to a "use".
 
+=item Module name required with -M option
+
+(F) The C<-M> option says that Perl should load some module, but you
+omitted the name of the module.  Consult L<perlrun> for full details
+about C<-M>.
+
 =item msg%s not implemented
 
 (F) You don't have System V message IPC on your system.
 
 =item Multidimensional syntax %s not supported
 
-(W syntax) Multidimensional arrays aren't written like C<$foo[1,2,3]>.  They're written
-like C<$foo[1][2][3]>, as in C.
+(W syntax) Multidimensional arrays aren't written like C<$foo[1,2,3]>.
+They're written like C<$foo[1][2][3]>, as in C.
 
-=item Missing name in "my sub"
+=item / must be followed by a*, A* or Z*
 
-(F) The reserved syntax for lexically scoped subroutines requires that they
-have a name with which they can be found.
+(F) You had a pack template indicating a counted-length string,
+Currently the only things that can have their length counted are a*, A* or Z*.
+See L<perlfunc/pack>.
+
+=item / must be followed by a, A or Z
+
+(F) You had an unpack template indicating a counted-length string,
+which must be followed by one of the letters a, A or Z
+to indicate what sort of string is to be unpacked.
+See L<perlfunc/pack>.
+
+=item / must follow a numeric type
+
+(F) You had an unpack template that contained a '#',
+but this did not follow some numeric unpack specification.
+See L<perlfunc/pack>.
+
+=item "my sub" not yet implemented
+
+(F) Lexically scoped subroutines are not yet implemented.  Don't try that
+yet.
+
+=item "my" variable %s can't be in a package
+
+(F) Lexically scoped variables aren't in a package, so it doesn't make sense
+to try to declare one with a package qualifier on the front.  Use local()
+if you want to localize a package variable.
 
 =item Name "%s::%s" used only once: possible typo
 
@@ -1928,10 +1899,10 @@ things like ** or +* or ?* are illegal.
 Note, however, that the minimal matching quantifiers, C<*?>, C<+?>, and C<??> appear
 to be nested quantifiers, but aren't.  See L<perlre>.
 
-=item No #! line
+=item %s never introduced
 
-(F) The setuid emulator requires that scripts have a well-formed #! line
-even on machines that don't support the #! construct.
+(S internal) The symbol in question was declared but somehow went out of scope
+before it could possibly have been used.
 
 =item No %s allowed while running setuid
 
@@ -1942,13 +1913,8 @@ See L<perlsec>.
 
 =item No B<-e> allowed in setuid scripts
 
-(F) A setuid script can't be specified by the user.
-
-=item No %s specified for -%c
-
-(F) The indicated command line switch needs a mandatory argument, but
-you haven't specified one.
-
+(F) A setuid script can't be specified by the user.
+
 =item No comma allowed after %s
 
 (F) A list operator that has a filehandle or "indirect object" is not
@@ -2006,6 +1972,16 @@ the name of the file to which to write data destined for stderr.
 and found a '<' on the command line, but can't find the name of the file
 from which to read data for stdin.
 
+=item No #! line
+
+(F) The setuid emulator requires that scripts have a well-formed #! line
+even on machines that don't support the #! construct.
+
+=item "no" not allowed in expression
+
+(F) The "no" keyword is recognized and executed at compile time, and returns
+no useful value.  See L<perlmod>.
+
 =item No output file after > on command line
 
 (F) An error peculiar to VMS.  Perl handles its own command line redirection,
@@ -2044,6 +2020,17 @@ your system.
 (F) The argument to the indicated command line switch must follow immediately
 after the switch, without intervening spaces.
 
+=item No %s specified for -%c
+
+(F) The indicated command line switch needs a mandatory argument, but
+you haven't specified one.
+
+=item No such pipe open
+
+(P) An error peculiar to VMS.  The internal routine my_pclose() tried to
+close a pipe which hadn't been opened.  This should have been caught earlier as
+an attempt to close an unopened filehandle.
+
 =item No such pseudo-hash field "%s"
 
 (F) You tried to access an array as a hash, but the field name used is
@@ -2057,24 +2044,11 @@ does not know about the field name.  The field names are looked up in
 the %FIELDS hash in the type package at compile time.  The %FIELDS hash
 is usually set up with the 'fields' pragma.
 
-=item No such pipe open
-
-(P) An error peculiar to VMS.  The internal routine my_pclose() tried to
-close a pipe which hadn't been opened.  This should have been caught earlier as
-an attempt to close an unopened filehandle.
-
 =item No such signal: SIG%s
 
-(W signal) You specified a signal name as a subscript to %SIG that was not recognized.
-Say C<kill -l> in your shell to see the valid signal names on your system.
-
-=item no UTC offset information; assuming local time is UTC
-
-(S) A warning peculiar to VMS.  Perl was unable to find the local
-timezone offset, so it's assuming that local system time is equivalent
-to UTC.  If it's not, define the logical name F<SYS$TIMEZONE_DIFFERENTIAL>
-to translate to the number of seconds which need to be added to UTC to
-get local time.
+(W signal) You specified a signal name as a subscript to %SIG that was not
+recognized.  Say C<kill -l> in your shell to see the valid signal names on
+your system.
 
 =item Not a CODE reference
 
@@ -2101,6 +2075,12 @@ what kind of ref it really was.  See L<perlref>.
 found a reference to something else instead.  You can use the ref()
 function to find out what kind of ref it really was.  See L<perlref>.
 
+=item Not an ARRAY reference
+
+(F) Perl was trying to evaluate a reference to an array value, but
+found a reference to something else instead.  You can use the ref()
+function to find out what kind of ref it really was.  See L<perlref>.
+
 =item Not a perl script
 
 (F) The setuid emulator requires that scripts have a well-formed #! line
@@ -2125,12 +2105,6 @@ See also L<perlref>.
 (F) An attempt was made to specify an entry in an overloading table that
 doesn't somehow point to a valid subroutine.  See L<overload>.
 
-=item Not an ARRAY reference
-
-(F) Perl was trying to evaluate a reference to an array value, but
-found a reference to something else instead.  You can use the ref()
-function to find out what kind of ref it really was.  See L<perlref>.
-
 =item Not enough arguments for %s
 
 (F) The function requires more arguments than you specified.
@@ -2140,21 +2114,35 @@ function to find out what kind of ref it really was.  See L<perlref>.
 (W syntax) A format specified more picture fields than the next line supplied.
 See L<perlform>.
 
+=item %s: not found
+
+(A) You've accidentally run your script through the Bourne shell
+instead of Perl.  Check the #! line, or manually feed your script
+into Perl yourself.
+
+=item no UTC offset information; assuming local time is UTC
+
+(S) A warning peculiar to VMS.  Perl was unable to find the local
+timezone offset, so it's assuming that local system time is equivalent
+to UTC.  If it's not, define the logical name F<SYS$TIMEZONE_DIFFERENTIAL>
+to translate to the number of seconds which need to be added to UTC to
+get local time.
+
 =item Null filename used
 
 (F) You can't require the null filename, especially because on many machines
 that means the current directory!  See L<perlfunc/require>.
 
+=item NULL OP IN RUN
+
+(P debugging) Some internal routine called run() with a null opcode pointer.
+
 =item Null picture in formline
 
 (F) The first argument to formline must be a valid format picture
 specification.  It was found to be empty, which probably means you
 supplied it an uninitialized value.  See L<perlform>.
 
-=item NULL OP IN RUN
-
-(P debugging) Some internal routine called run() with a null opcode pointer.
-
 =item Null realloc
 
 (P) An attempt was made to realloc NULL.
@@ -2174,20 +2162,20 @@ about 250 characters.  You've exceeded that length.  Future versions of
 Perl are likely to eliminate this arbitrary limitation.  In the meantime,
 try using scientific notation (e.g. "1e6" instead of "1_000_000").
 
-=item Octal number > 037777777777 non-portable
-
-(W portable) The octal number you specified is larger than 2**32-1 (4294967295)
-and therefore non-portable between systems.  See L<perlport> for more
-on portability concerns.
-
-See also L<perlport> for writing portable code.
-
 =item Octal number in vector unsupported
 
 (F) Numbers with a leading C<0> are not currently allowed in vectors.  The
 octal number interpretation of such numbers may be supported in a future
 version.
 
+=item Octal number > 037777777777 non-portable
+
+(W portable) The octal number you specified is larger than 2**32-1
+(4294967295) and therefore non-portable between systems.  See L<perlport> for
+more on portability concerns.
+
+See also L<perlport> for writing portable code.
+
 =item Odd number of elements in hash assignment
 
 (W misc) You specified an odd number of elements to initialize a hash, which
@@ -2224,16 +2212,23 @@ to use an operator, but this is highly likely to be incorrect.
 For example, if you say "*foo *foo" it will be interpreted as
 if you said "*foo * 'foo'".
 
+=item "our" variable %s redeclared
+
+(W misc) You seem to have already declared the same global once before in the
+current lexical scope.
+
 =item Out of memory!
 
 (X) The malloc() function returned 0, indicating there was insufficient
 remaining memory (or virtual memory) to satisfy the request.  Perl
 has no option but to exit immediately.
 
-=item Out of memory for yacc stack
+=item Out of memory during "large" request for %s
 
-(F) The yacc parser wanted to grow its stack so it could continue parsing,
-but realloc() wouldn't give it more memory, virtual or otherwise.
+(F) The malloc() function returned 0, indicating there was insufficient
+remaining memory (or virtual memory) to satisfy the request. However,
+the request was judged large enough (compile-time default is 64K), so
+a possibility to shut down by trapping this error is granted.
 
 =item Out of memory during request for %s
 
@@ -2246,24 +2241,38 @@ However, if compiled for this, Perl may use the contents of C<$^M> as
 an emergency pool after die()ing with this message.  In this case the
 error is trappable I<once>.
 
-=item Out of memory during "large" request for %s
-
-(F) The malloc() function returned 0, indicating there was insufficient
-remaining memory (or virtual memory) to satisfy the request. However,
-the request was judged large enough (compile-time default is 64K), so
-a possibility to shut down by trapping this error is granted.
-
 =item Out of memory during ridiculously large request
 
 (F) You can't allocate more than 2^31+"small amount" bytes.  This error
 is most likely to be caused by a typo in the Perl program. e.g., C<$arr[time]>
 instead of C<$arr[$time]>.
 
+=item Out of memory for yacc stack
+
+(F) The yacc parser wanted to grow its stack so it could continue parsing,
+but realloc() wouldn't give it more memory, virtual or otherwise.
+
+=item @ outside of string
+
+(F) You had a pack template that specified an absolute position outside
+the string being unpacked.  See L<perlfunc/pack>.
+
+=item %s package attribute may clash with future reserved word: %s
+
+(W reserved) A lowercase attribute name was used that had a package-specific
+handler.  That name might have a meaning to Perl itself some day, even though
+it doesn't yet.  Perhaps you should use a mixed-case attribute name, instead.
+See L<attributes>.
+
 =item page overflow
 
 (W io) A single call to write() produced more lines than can fit on a page.
 See L<perlform>.
 
+=item panic: %s
+
+(P) An internal error.
+
 =item panic: ck_grep
 
 (P) Failed an internal consistency check trying to compile a grep.
@@ -2338,15 +2347,15 @@ it wasn't a block context.
 (P) The savestack probably got out of sync.  At least, there was an
 invalid enum on the top of it.
 
-=item panic: malloc
-
-(P) Something requested a negative number of bytes of malloc.
-
 =item panic: magic_killbackrefs
 
 (P) Failed an internal consistency check while trying to reset all weak
 references to an object.
 
+=item panic: malloc
+
+(P) Something requested a negative number of bytes of malloc.
+
 =item panic: mapstart
 
 (P) The compiler is screwed up with respect to the map() function.
@@ -2422,10 +2431,6 @@ was string.
 
 (P) The lexer got into a bad state while processing a case modifier.
 
-=item panic: %s
-
-(P) An internal error.
-
 =item Parentheses missing around "%s" list
 
 (W parenthesis) You said something like
@@ -2438,20 +2443,46 @@ when you meant
 
 Remember that "my", "our", and "local" bind tighter than comma.
 
-=item Perl %3.3f required--this is only version %s, stopped
+=item Perl %s required--this is only version %s, stopped
 
 (F) The module in question uses features of a version of Perl more recent
 than the currently running version.  How long has it been since you upgraded,
 anyway?  See L<perlfunc/require>.
 
+=item PERL_SH_DIR too long
+
+(F) An error peculiar to OS/2. PERL_SH_DIR is the directory to find the
+C<sh>-shell in.  See "PERL_SH_DIR" in F<README.os2>.
+
+=item perl: warning: Setting locale failed.
+
+(S) The whole warning message will look something like:
+
+       perl: warning: Setting locale failed.
+       perl: warning: Please check that your locale settings:
+               LC_ALL = "En_US",
+               LANG = (unset)
+           are supported and installed on your system.
+       perl: warning: Falling back to the standard locale ("C").
+
+Exactly what were the failed locale settings varies.  In the above the
+settings were that the LC_ALL was "En_US" and the LANG had no value.
+This error means that Perl detected that you and/or your system
+administrator have set up the so-called variable system but Perl could
+not use those settings.  This was not dead serious, fortunately: there
+is a "default locale" called "C" that Perl can and will use, the
+script will be run.  Before you really fix the problem, however, you
+will get the same error message each time you run Perl.  How to really
+fix the problem can be found in L<perllocale> section B<LOCALE PROBLEMS>.
+
 =item Permission denied
 
 (F) The setuid emulator in suidperl decided you were up to no good.
 
 =item pid %x not a child
 
-(W exec) A warning peculiar to VMS.  Waitpid() was asked to wait for a process which
-isn't a subprocess of the current process.  While this is fine from VMS'
+(W exec) A warning peculiar to VMS.  Waitpid() was asked to wait for a process
+which isn't a subprocess of the current process.  While this is fine from VMS'
 perspective, it's probably not what you intended.
 
 =item POSIX getpgrp can't take an argument
@@ -2459,17 +2490,12 @@ perspective, it's probably not what you intended.
 (F) Your system has POSIX getpgrp(), which takes no argument, unlike
 the BSD version, which takes a pid.
 
-=item Possible Y2K bug: %s
-
-(W y2k) You are concatenating the number 19 with another number, which
-could be a potential Year 2000 problem.
-
 =item Possible attempt to put comments in qw() list
 
 (W qw) qw() lists contain items separated by whitespace; as with literal
-strings, comment characters are not ignored, but are instead treated
-as literal data.  (You may have used different delimiters than the
-parentheses shown here; braces are also frequently used.)
+strings, comment characters are not ignored, but are instead treated as
+literal data.  (You may have used different delimiters than the parentheses
+shown here; braces are also frequently used.)
 
 You probably wrote something like this:
 
@@ -2516,6 +2542,11 @@ Perl guesses a reasonable buffer size, but puts a sentinel byte at the
 end of the buffer just in case.  This sentinel byte got clobbered, and
 Perl assumes that memory is now corrupted.  See L<perlfunc/ioctl>.
 
+=item Possible Y2K bug: %s
+
+(W y2k) You are concatenating the number 19 with another number, which
+could be a potential Year 2000 problem.
+
 =item pragma "attrs" is deprecated, use "sub NAME : ATTRS" instead
 
 (W deprecated) You have written something like this:
@@ -2553,15 +2584,23 @@ instead of "||".
 
 See Server error.
 
+=item printf() on closed filehandle %s
+
+(W closed) The filehandle you're writing to got itself closed sometime before
+now.  Check your logic flow.
+
 =item print() on closed filehandle %s
 
-(W closed) The filehandle you're printing on got itself closed sometime before now.
-Check your logic flow.
+(W closed) The filehandle you're printing on got itself closed sometime before
+now.  Check your logic flow.
 
-=item printf() on closed filehandle %s
+=item Process terminated by SIG%s
 
-(W closed) The filehandle you're writing to got itself closed sometime before now.
-Check your logic flow.
+(W) This is a standard message issued by OS/2 applications, while *nix
+applications die in silence.  It is considered a feature of the OS/2
+port.  One can easily disable this by appropriate sighandlers, see
+L<perlipc/"Signals">.  See also "Process terminated by SIGTERM/SIGINT"
+in F<README.os2>.
 
 =item Prototype mismatch: %s vs %s
 
@@ -2577,18 +2616,18 @@ increment by prepending "0" to your numbers.
 
 =item readline() on closed filehandle %s
 
-(W closed) The filehandle you're reading from got itself closed sometime before now.
-Check your logic flow.
+(W closed) The filehandle you're reading from got itself closed sometime
+before now.  Check your logic flow.
+
+=item Reallocation too large: %lx
+
+(F) You can't allocate more than 64K on an MS-DOS machine.
 
 =item realloc() of freed memory ignored
 
 (S malloc) An internal routine called realloc() on something that had already
 been freed.
 
-=item Reallocation too large: %lx
-
-(F) You can't allocate more than 64K on an MS-DOS machine.
-
 =item Recompile perl with B<-D>DEBUGGING to use B<-D> switch
 
 (F debugging) You can't use the B<-D> option unless the code to produce the
@@ -2627,16 +2666,16 @@ Doing so has no effect.
 (W internal) The internal sv_replace() function was handed a new SV with a
 reference count of other than 1.
 
-=item regexp *+ operand could be empty
-
-(F) The part of the regexp subject to either the * or + quantifier
-could match an empty string.
-
 =item regexp memory corruption
 
 (P) The regular expression engine got confused by what the regular
 expression compiler gave it.
 
+=item regexp *+ operand could be empty
+
+(F) The part of the regexp subject to either the * or + quantifier
+could match an empty string.
+
 =item regexp out of space
 
 (P) A "can't happen" error, because safemalloc() should have caught it earlier.
@@ -2666,12 +2705,13 @@ shifting or popping (for array variables).  See L<perlform>.
 
 =item Scalar value @%s[%s] better written as $%s[%s]
 
-(W syntax) You've used an array slice (indicated by @) to select a single element of
-an array.  Generally it's better to ask for a scalar value (indicated by $).
-The difference is that C<$foo[&bar]> always behaves like a scalar, both when
-assigning to it and when evaluating its argument, while C<@foo[&bar]> behaves
-like a list when you assign to it, and provides a list context to its
-subscript, which can do weird things if you're expecting only one subscript.
+(W syntax) You've used an array slice (indicated by @) to select a single
+element of an array.  Generally it's better to ask for a scalar value
+(indicated by $).  The difference is that C<$foo[&bar]> always behaves like a
+scalar, both when assigning to it and when evaluating its argument, while
+C<@foo[&bar]> behaves like a list when you assign to it, and provides a list
+context to its subscript, which can do weird things if you're expecting only
+one subscript.
 
 On the other hand, if you were actually hoping to treat the array
 element as a list, you need to look into how references work, because
@@ -2680,12 +2720,13 @@ L<perlref>.
 
 =item Scalar value @%s{%s} better written as $%s{%s}
 
-(W syntax) You've used a hash slice (indicated by @) to select a single element of
-a hash.  Generally it's better to ask for a scalar value (indicated by $).
-The difference is that C<$foo{&bar}> always behaves like a scalar, both when
-assigning to it and when evaluating its argument, while C<@foo{&bar}> behaves
-like a list when you assign to it, and provides a list context to its
-subscript, which can do weird things if you're expecting only one subscript.
+(W syntax) You've used a hash slice (indicated by @) to select a single
+element of a hash.  Generally it's better to ask for a scalar value (indicated
+by $).  The difference is that C<$foo{&bar}> always behaves like a scalar,
+both when assigning to it and when evaluating its argument, while
+C<@foo{&bar}> behaves like a list when you assign to it, and provides a list
+context to its subscript, which can do weird things if you're expecting only
+one subscript.
 
 On the other hand, if you were actually hoping to treat the hash
 element as a list, you need to look into how references work, because
@@ -2705,26 +2746,26 @@ Missing the leading C<$> from a variable C<$m> may cause this error.
 
 =item %sseek() on unopened file
 
-(W unopened) You tried to use the seek() or sysseek() function on a filehandle that
-was either never opened or has since been closed.
+(W unopened) You tried to use the seek() or sysseek() function on a filehandle
+that was either never opened or has since been closed.
 
 =item select not implemented
 
 (F) This machine doesn't implement the select() system call.
 
-=item sem%s not implemented
+=item Semicolon seems to be missing
 
-(F) You don't have System V semaphore IPC on your system.
+(W semicolon) A nearby syntax error was probably caused by a missing
+semicolon, or possibly some other missing operator, such as a comma.
 
 =item semi-panic: attempt to dup freed string
 
 (S internal) The internal newSVsv() routine was called to duplicate a scalar
 that had previously been marked as free.
 
-=item Semicolon seems to be missing
+=item sem%s not implemented
 
-(W semicolon) A nearby syntax error was probably caused by a missing semicolon,
-or possibly some other missing operator, such as a comma.
+(F) You don't have System V semaphore IPC on your system.
 
 =item send() on closed socket %s
 
@@ -2736,11 +2777,6 @@ Check your logic flow.
 (F) A regular expression ended with an incomplete extension (?.
 See L<perlre>.
 
-=item Sequence (?#... not terminated
-
-(F) A regular expression comment must be terminated by a closing
-parenthesis.  Embedded parentheses aren't allowed.  See L<perlre>.
-
 =item Sequence (?%s...) not implemented
 
 (F) A proposed regular expression extension has the character reserved
@@ -2751,6 +2787,15 @@ but has not yet been written.  See L<perlre>.
 (F) You used a regular expression extension that doesn't make sense.
 See L<perlre>.
 
+=item Sequence (?#... not terminated
+
+(F) A regular expression comment must be terminated by a closing
+parenthesis.  Embedded parentheses aren't allowed.  See L<perlre>.
+
+=item 500 Server error
+
+See Server error.
+
 =item Server error
 
 This is the error message generally seen in a browser window when trying
@@ -2806,6 +2851,12 @@ think so.
 the setruid() system call (or equivalent), or at least Configure didn't
 think so.
 
+=item setsockopt() on closed socket %s
+
+(W closed) You tried to set a socket option on a closed socket.  Did
+you forget to check the return value of your socket() call?  See
+L<perlfunc/setsockopt>.
+
 =item Setuid/gid script is writable by world
 
 (F) The setuid emulator won't run a script that is writable by the world,
@@ -2815,14 +2866,27 @@ because the world might have written on it already.
 
 (F) You don't have System V shared memory IPC on your system.
 
+=item <> should be quotes
+
+(F) You wrote C<< require <file> >> when you should have written
+C<require 'file'>.
+
+=item /%s/ should probably be written as "%s"
+
+(W syntax) You have used a pattern where Perl expected to find a string,
+as in the first argument to C<join>.  Perl will treat the true
+or false result of matching the pattern against $_ as the string,
+which is probably not what you had in mind.
+
 =item shutdown() on closed socket %s
 
-(W closed) You tried to do a shutdown on a closed socket.  Seems a bit superfluous.
+(W closed) You tried to do a shutdown on a closed socket.  Seems a bit
+superfluous.
 
 =item SIG%s handler "%s" not defined
 
-(W signal) The signal handler named in %SIG doesn't, in fact, exist.  Perhaps you
-put it into the wrong package?
+(W signal) The signal handler named in %SIG doesn't, in fact, exist.  Perhaps
+you put it into the wrong package?
 
 =item sort is now a reserved word
 
@@ -2846,11 +2910,6 @@ or less than one element.  See L<perlfunc/sort>.
 more times than there are characters of input, which is what happened.)
 See L<perlfunc/split>.
 
-=item Stat on unopened file <%s>
-
-(W unopened) You tried to use the stat() function (or an equivalent file test)
-on a filehandle that was either never opened or has since been closed.
-
 =item Statement unlikely to be reached
 
 (W exec) You did an exec() with some statement after it other than a die().
@@ -2859,13 +2918,18 @@ there was a failure.  You probably wanted to use system() instead,
 which does return.  To suppress this warning, put the exec() in a block
 by itself.
 
+=item Stat on unopened file <%s>
+
+(W unopened) You tried to use the stat() function (or an equivalent file test)
+on a filehandle that was either never opened or has since been closed.
+
 =item Strange *+?{} on zero-length expression
 
 (W regexp) You applied a regular expression quantifier in a place where it
-makes no sense, such as on a zero-width assertion.
-Try putting the quantifier inside the assertion instead.  For example,
-the way to match "abc" provided that it is followed by three
-repetitions of "xyz" is C</abc(?=(?:xyz){3})/>, not C</abc(?=xyz){3}/>.
+makes no sense, such as on a zero-width assertion.  Try putting the quantifier
+inside the assertion instead.  For example, the way to match "abc" provided
+that it is followed by three repetitions of "xyz" is C</abc(?=(?:xyz){3})/>,
+not C</abc(?=xyz){3}/>.
 
 =item Stub found while resolving method `%s' overloading `%s' in package `%s'
 
@@ -2904,10 +2968,10 @@ Missing the leading C<$> from variable C<$s> may cause this error.
 =item substr outside of string
 
 (W substr),(F) You tried to reference a substr() that pointed outside of a
-string.  That is, the absolute value of the offset was larger than the
-length of the string.  See L<perlfunc/substr>.  This warning is
-fatal if substr is used in an lvalue context (as the left hand side
-of an assignment or as a subroutine argument for example).
+string.  That is, the absolute value of the offset was larger than the length
+of the string.  See L<perlfunc/substr>.  This warning is fatal if substr is
+used in an lvalue context (as the left hand side of an assignment or as a
+subroutine argument for example).
 
 =item suidperl is no longer needed since %s
 
@@ -2946,6 +3010,10 @@ if the error went away.  Sort of the cybernetic version of S<20 questions>.
 instead of Perl.  Check the #! line, or manually feed your script
 into Perl yourself.
 
+=item %s syntax OK
+
+(F) The final summary message when a C<perl -c> succeeds.
+
 =item System V %s is not implemented on this machine
 
 (F) You tried to do something with a function beginning with "sem",
@@ -2955,8 +3023,8 @@ unconfigured.  Consult your system support.
 
 =item syswrite() on closed filehandle %s
 
-(W closed) The filehandle you're writing to got itself closed sometime before now.
-Check your logic flow.
+(W closed) The filehandle you're writing to got itself closed sometime before
+now.  Check your logic flow.
 
 =item Target of goto is too deeply nested
 
@@ -2965,13 +3033,13 @@ nested for Perl to reach.  Perl is doing you a favor by refusing.
 
 =item tell() on unopened file
 
-(W unopened) You tried to use the tell() function on a filehandle that was either
-never opened or has since been closed.
+(W unopened) You tried to use the tell() function on a filehandle that was
+either never opened or has since been closed.
 
 =item Test on unopened file <%s>
 
-(W unopened) You tried to invoke a file test operator on a filehandle that isn't
-open.  Check your logic.  See also L<perlfunc/-X>.
+(W unopened) You tried to invoke a file test operator on a filehandle that
+isn't open.  Check your logic.  See also L<perlfunc/-X>.
 
 =item That use of $[ is unsupported
 
@@ -2988,11 +3056,6 @@ a compiler directive.  You may say only one of
 This is to prevent the problem of one module changing the array base
 out from under another module inadvertently.  See L<perlvar/$[>.
 
-=item The %s function is unimplemented
-
-The function indicated isn't implemented on this architecture, according
-to the probings of Configure.
-
 =item The crypt() function is unimplemented due to excessive paranoia
 
 (F) Configure couldn't find the crypt() function on your machine,
@@ -3001,6 +3064,11 @@ think the U.S. Government thinks it's a secret, or at least that they
 will continue to pretend that it is.  And if you quote me on that, I
 will deny it.
 
+=item The %s function is unimplemented
+
+The function indicated isn't implemented on this architecture, according
+to the probings of Configure.
+
 =item The stat preceding C<-l _> wasn't an lstat
 
 (F) It makes no sense to test the current stat buffer for symbolic linkhood
@@ -3011,8 +3079,8 @@ the symlink to get to the real file.  Use an actual filename instead.
 
 =item This Perl can't set CRTL environ elements (%s=%s)
 
-(W internal) Warnings peculiar to VMS.  You tried to change or delete an element
-of the CRTL's internal environ array, but your copy of Perl wasn't
+(W internal) Warnings peculiar to VMS.  You tried to change or delete an
+element of the CRTL's internal environ array, but your copy of Perl wasn't
 built with a CRTL that contained the setenv() function.  You'll need to
 rebuild Perl with a CRTL that does, or redefine F<PERL_ENV_TABLES> (see
 L<perlvms>) so that the environ array isn't the target of the change to
@@ -3058,14 +3126,6 @@ loading a file with C<require> or C<do> when you should be using
 C<use> instead.  Or perhaps you should put the C<require> or C<do>
 inside a BEGIN block.
 
-=item Too many ('s
-
-=item Too many )'s
-
-(A) You've accidentally run your script through B<csh> instead
-of Perl.  Check the #! line, or manually feed your script into
-Perl yourself.
-
 =item Too many args to syscall
 
 (F) Perl supports a maximum of only 14 args to syscall().
@@ -3074,6 +3134,14 @@ Perl yourself.
 
 (F) The function requires fewer arguments than you specified.
 
+=item Too many )'s
+
+(A) You've accidentally run your script through B<csh> instead
+of Perl.  Check the #! line, or manually feed your script into
+Perl yourself.
+
+=item Too many ('s
+
 =item trailing \ in regexp
 
 (F) The regular expression ends with an unbackslashed backslash.  Backslash
@@ -3118,8 +3186,8 @@ to use it to restrict permissions for yourself (EXPR & 0700).
 
 =item Unbalanced context: %d more PUSHes than POPs
 
-(W internal) The exit code detected an internal inconsistency in how many execution
-contexts were entered and left.
+(W internal) The exit code detected an internal inconsistency in how many
+execution contexts were entered and left.
 
 =item Unbalanced saves: %d more saves than restores
 
@@ -3128,13 +3196,13 @@ values were temporarily localized.
 
 =item Unbalanced scopes: %d more ENTERs than LEAVEs
 
-(W internal) The exit code detected an internal inconsistency in how many blocks
-were entered and left.
+(W internal) The exit code detected an internal inconsistency in how many
+blocks were entered and left.
 
 =item Unbalanced tmps: %d more allocs than frees
 
-(W internal) The exit code detected an internal inconsistency in how many mortal
-scalars were allocated and freed.
+(W internal) The exit code detected an internal inconsistency in how many
+mortal scalars were allocated and freed.
 
 =item Undefined format "%s" called
 
@@ -3171,6 +3239,12 @@ another package?  See L<perlform>.
 (W misc) An undefined value was assigned to a typeglob, a la C<*foo = undef>.
 This does nothing.  It's possible that you really mean C<undef *foo>.
 
+=item %s: Undefined variable
+
+(A) You've accidentally run your script through B<csh> instead
+of Perl.  Check the #! line, or manually feed your script into
+Perl yourself.
+
 =item unexec of %s into %s failed!
 
 (F) The unexec() routine failed for some reason.  See your local FSF
@@ -3193,6 +3267,12 @@ iterating over it, and someone else stuck a message in the stream of
 data Perl expected.  Someone's very confused, or perhaps trying to
 subvert Perl's population of %ENV for nefarious purposes.
 
+=item unmatched [] in regexp
+
+(F) The brackets around a character class must match.  If you wish to
+include a closing bracket in a character class, backslash it or put it first.
+See L<perlre>.
+
 =item unmatched () in regexp
 
 (F) Unbackslashed parentheses must always be balanced in regular
@@ -3206,17 +3286,11 @@ opening ones, so you're probably missing a matching opening bracket.
 As a general rule, you'll find the missing one (so to speak) near the
 place you were last editing.
 
-=item unmatched [] in regexp
-
-(F) The brackets around a character class must match.  If you wish to
-include a closing bracket in a character class, backslash it or put it first.
-See L<perlre>.
-
 =item Unquoted string "%s" may clash with future reserved word
 
-(W reserved) You used a bareword that might someday be claimed as a reserved word.
-It's best to put such a word in quotes, or capitalize it somehow, or insert
-an underbar into it.  You might also declare it as a subroutine.
+(W reserved) You used a bareword that might someday be claimed as a reserved
+word.  It's best to put such a word in quotes, or capitalize it somehow, or
+insert an underbar into it.  You might also declare it as a subroutine.
 
 =item Unrecognized character %s
 
@@ -3224,6 +3298,17 @@ an underbar into it.  You might also declare it as a subroutine.
 in your Perl script (or eval).  Perhaps you tried to run a compressed
 script, a binary program, or a directory as a Perl program.
 
+=item /%s/: Unrecognized escape \\%c in character class passed through
+
+(W regexp) You used a backslash-character combination which is not recognized
+by Perl inside character classes.  The character was understood literally.
+
+=item /%s/: Unrecognized escape \\%c passed through
+
+(W regexp) You used a backslash-character combination which is not recognized
+by Perl.  This combination appears in an interpolated variable or a 
+C<'>-delimited regular expression.  The character was understood literally.
+
 =item Unrecognized escape \\%c passed through
 
 (W misc) You used a backslash-character combination which is not recognized
@@ -3250,6 +3335,11 @@ because you forgot to chop() or chomp() it off.  See L<perlfunc/chomp>.
 
 (F) Your machine doesn't support opendir() and readdir().
 
+=item Unsupported function %s
+
+(F) This machine doesn't implement the indicated function, apparently.
+At least, Configure doesn't think so.
+
 =item Unsupported function fork
 
 (F) Your version of executable does not support forking.
@@ -3258,22 +3348,17 @@ Note that under some systems, like OS/2, there may be different flavors of
 Perl executables, some of which may support fork, some not. Try changing
 the name you call Perl by to C<perl_>, C<perl__>, and so on.
 
-=item Unsupported function %s
-
-(F) This machine doesn't implement the indicated function, apparently.
-At least, Configure doesn't think so.
-
 =item Unsupported socket function "%s" called
 
 (F) Your machine doesn't support the Berkeley socket mechanism, or at
 least that's what Configure thought.
 
-=item Unterminated <> operator
+=item Unterminated attribute list
 
-(F) The lexer saw a left angle bracket in a place where it was expecting
-a term, so it's looking for the corresponding right angle bracket, and not
-finding it.  Chances are you left some needed parentheses out earlier in
-the line, and you really meant a "less than".
+(F) The lexer found something other than a simple identifier at the start
+of an attribute, and it wasn't a semicolon or the start of a
+block.  Perhaps you terminated the parameter list of the previous attribute
+too soon.  See L<attributes>.
 
 =item Unterminated attribute parameter in attribute list
 
@@ -3282,29 +3367,57 @@ attribute list, but the matching closing (right) parenthesis
 character was not found.  You may need to add (or remove) a backslash
 character to get your parentheses to balance.  See L<attributes>.
 
-=item Unterminated attribute list
+=item Unterminated <> operator
 
-(F) The lexer found something other than a simple identifier at the start
-of an attribute, and it wasn't a semicolon or the start of a
-block.  Perhaps you terminated the parameter list of the previous attribute
-too soon.  See L<attributes>.
+(F) The lexer saw a left angle bracket in a place where it was expecting
+a term, so it's looking for the corresponding right angle bracket, and not
+finding it.  Chances are you left some needed parentheses out earlier in
+the line, and you really meant a "less than".
 
-=item Use of $# is deprecated
+=item untie attempted while %d inner references still exist
 
-(D deprecated) This was an ill-advised attempt to emulate a poorly defined B<awk> feature.
-Use an explicit printf() or sprintf() instead.
+(W untie) A copy of the object returned from C<tie> (or C<tied>) was still
+valid when C<untie> was called.
 
-=item Use of $* is deprecated
+=item Useless use of %s in void context
 
-(D deprecated) This variable magically turned on multi-line pattern matching, both for
-you and for any luckless subroutine that you happen to call.  You should
-use the new C<//m> and C<//s> modifiers now to do that without the dangerous
-action-at-a-distance effects of C<$*>.
+(W void) You did something without a side effect in a context that does
+nothing with the return value, such as a statement that doesn't return a value
+from a block, or the left side of a scalar comma operator.  Very often this
+points not to stupidity on your part, but a failure of Perl to parse your
+program the way you thought it would.  For example, you'd get this if you
+mixed up your C precedence with Python precedence and said
 
-=item Use of %s in printf format not supported
+    $one, $two = 1, 2;
 
-(F) You attempted to use a feature of printf that is accessible from
-only C.  This usually means there's a better way to do it in Perl.
+when you meant to say
+
+    ($one, $two) = (1, 2);
+
+Another common error is to use ordinary parentheses to construct a list
+reference when you should be using square or curly brackets, for
+example, if you say
+
+    $array = (1,2);
+
+when you should have said
+
+    $array = [1,2];
+
+The square brackets explicitly turn a list value into a scalar value,
+while parentheses do not.  So when a parenthesized list is evaluated in
+a scalar context, the comma is treated like C's comma operator, which
+throws away the left argument, which is not what you want.  See
+L<perlref> for more on this.
+
+=item Useless use of "re" pragma
+
+(W) You did C<use re;> without any arguments.   That isn't very useful.
+
+=item "use" not allowed in expression
+
+(F) The "use" keyword is recognized and executed at compile time, and returns
+no useful value.  See L<perlmod>.
 
 =item Use of bare << to mean <<"" is deprecated
 
@@ -3324,11 +3437,10 @@ looked up as methods (using the C<@ISA> hierarchy) even when the subroutines
 to be autoloaded were called as plain functions (e.g.  C<Foo::bar()>),
 not as methods (e.g. C<< Foo->bar() >> or C<< $obj->bar() >>).
 
-This bug will be rectified in Perl 5.005, which will use method lookup
-only for methods' C<AUTOLOAD>s.  However, there is a significant base
-of existing code that may be using the old behavior.  So, as an
-interim step, Perl 5.004 issues an optional warning when non-methods
-use inherited C<AUTOLOAD>s.
+This bug will be rectified in future by using method lookup only for methods'
+C<AUTOLOAD>s.  However, there is a significant base of existing code that may
+be using the old behavior.  So, as an interim step, Perl currently issues an
+optional warning when non-methods use inherited C<AUTOLOAD>s.
 
 The simple rule is:  Inheritance will not work when autoloading
 non-methods.  The simple fix for old code is:  In any module that used to
@@ -3339,81 +3451,57 @@ In code that currently says C<use AutoLoader; @ISA = qw(AutoLoader);> you
 should remove AutoLoader from @ISA and change C<use AutoLoader;> to
 C<use AutoLoader 'AUTOLOAD';>.
 
-=item Use of reserved word "%s" is deprecated
-
-(D deprecated) The indicated bareword is a reserved word.  Future versions of perl
-may use it as a keyword, so you're better off either explicitly quoting
-the word in a manner appropriate for its context of use, or using a
-different name altogether.  The warning can be suppressed for subroutine
-names by either adding a C<&> prefix, or using a package qualifier,
-e.g. C<&our()>, or C<Foo::our()>.
-
-=item Use of %s is deprecated
-
-(D deprecated) The construct indicated is no longer recommended for use, generally
-because there's a better way to do it, and also because the old way has
-bad side effects.
-
-=item Use of uninitialized value%s
-
-(W uninitialized) An undefined value was used as if it were already defined.  It was
-interpreted as a "" or a 0, but maybe it was a mistake.  To suppress this
-warning assign a defined value to your variables.
-
-=item Useless use of "re" pragma
-
-(W) You did C<use re;> without any arguments.   That isn't very useful.
-
-=item Useless use of %s in void context
+=item Use of %s in printf format not supported
 
-(W void) You did something without a side effect in a context that does nothing
-with the return value, such as a statement that doesn't return a value
-from a block, or the left side of a scalar comma operator.  Very often
-this points not to stupidity on your part, but a failure of Perl to parse
-your program the way you thought it would.  For example, you'd get this
-if you mixed up your C precedence with Python precedence and said
+(F) You attempted to use a feature of printf that is accessible from
+only C.  This usually means there's a better way to do it in Perl.
 
-    $one, $two = 1, 2;
+=item Use of $* is deprecated
 
-when you meant to say
+(D deprecated) This variable magically turned on multi-line pattern matching,
+both for you and for any luckless subroutine that you happen to call.  You
+should use the new C<//m> and C<//s> modifiers now to do that without the
+dangerous action-at-a-distance effects of C<$*>.
 
-    ($one, $two) = (1, 2);
+=item Use of %s is deprecated
 
-Another common error is to use ordinary parentheses to construct a list
-reference when you should be using square or curly brackets, for
-example, if you say
+(D deprecated) The construct indicated is no longer recommended for use,
+generally because there's a better way to do it, and also because the old way
+has bad side effects.
 
-    $array = (1,2);
+=item Use of $# is deprecated
 
-when you should have said
+(D deprecated) This was an ill-advised attempt to emulate a poorly defined
+B<awk> feature.  Use an explicit printf() or sprintf() instead.
 
-    $array = [1,2];
+=item Use of reserved word "%s" is deprecated
 
-The square brackets explicitly turn a list value into a scalar value,
-while parentheses do not.  So when a parenthesized list is evaluated in
-a scalar context, the comma is treated like C's comma operator, which
-throws away the left argument, which is not what you want.  See
-L<perlref> for more on this.
+(D deprecated) The indicated bareword is a reserved word.  Future versions of
+perl may use it as a keyword, so you're better off either explicitly quoting
+the word in a manner appropriate for its context of use, or using a different
+name altogether.  The warning can be suppressed for subroutine names by either
+adding a C<&> prefix, or using a package qualifier, e.g. C<&our()>, or
+C<Foo::our()>.
 
-=item untie attempted while %d inner references still exist
+=item Use of uninitialized value%s
 
-(W untie) A copy of the object returned from C<tie> (or C<tied>) was still
-valid when C<untie> was called.
+(W uninitialized) An undefined value was used as if it were already defined.
+It was interpreted as a "" or a 0, but maybe it was a mistake.  To suppress
+this warning assign a defined value to your variables.
 
 =item Value of %s can be "0"; test with defined()
 
-(W misc) In a conditional expression, you used <HANDLE>, <*> (glob), C<each()>,
-or C<readdir()> as a boolean value.  Each of these constructs can return a
-value of "0"; that would make the conditional expression false, which is
-probably not what you intended.  When using these constructs in conditional
+(W misc) In a conditional expression, you used <HANDLE>, <*> (glob),
+C<each()>, or C<readdir()> as a boolean value.  Each of these constructs can
+return a value of "0"; that would make the conditional expression false, which
+is probably not what you intended.  When using these constructs in conditional
 expressions, test their values with the C<defined> operator.
 
 =item Value of CLI symbol "%s" too long
 
 (W misc) A warning peculiar to VMS.  Perl tried to read the value of an %ENV
-element from a CLI symbol table, and found a resultant string longer
-than 1024 characters.  The return value has been truncated to 1024
-characters.
+element from a CLI symbol table, and found a resultant string longer than 1024
+characters.  The return value has been truncated to 1024 characters.
 
 =item Variable "%s" is not imported%s
 
@@ -3423,6 +3511,14 @@ something else of the same name (usually a subroutine) is exported
 by that module.  It usually means you put the wrong funny character
 on the front of your variable.
 
+=item "%s" variable %s masks earlier declaration in same %s
+
+(W misc) A "my" or "our" variable has been redeclared in the current scope or
+statement, effectively eliminating all access to the previous instance.  This
+is almost always a typographical error.  Note that the earlier variable will
+still exist until the end of the scope or until all closure referents to it
+are destroyed.
+
 =item Variable "%s" may be unavailable
 
 (W closure) An inner (nested) I<anonymous> subroutine is inside a I<named>
@@ -3445,6 +3541,12 @@ subroutine anonymous, using the C<sub {}> syntax.  Perl has specific
 support for shared variables in nested anonymous subroutines; a named
 subroutine in between interferes with this feature.
 
+=item Variable syntax
+
+(A) You've accidentally run your script through B<csh> instead
+of Perl.  Check the #! line, or manually feed your script into
+Perl yourself.
+
 =item Variable "%s" will not stay shared
 
 (W closure) An inner (nested) I<named> subroutine is referencing a lexical
@@ -3467,39 +3569,12 @@ reference variables in outer subroutines are called or referenced,
 they are automatically rebound to the current values of such
 variables.
 
-=item Variable syntax
-
-(A) You've accidentally run your script through B<csh> instead
-of Perl.  Check the #! line, or manually feed your script into
-Perl yourself.
-
 =item Version number must be a constant number
 
 (P) The attempt to translate a C<use Module n.n LIST> statement into
 its equivalent C<BEGIN> block found an internal inconsistency with
 the version number.
 
-=item perl: warning: Setting locale failed.
-
-(S) The whole warning message will look something like:
-
-       perl: warning: Setting locale failed.
-       perl: warning: Please check that your locale settings:
-               LC_ALL = "En_US",
-               LANG = (unset)
-           are supported and installed on your system.
-       perl: warning: Falling back to the standard locale ("C").
-
-Exactly what were the failed locale settings varies.  In the above the
-settings were that the LC_ALL was "En_US" and the LANG had no value.
-This error means that Perl detected that you and/or your system
-administrator have set up the so-called variable system but Perl could
-not use those settings.  This was not dead serious, fortunately: there
-is a "default locale" called "C" that Perl can and will use, the
-script will be run.  Before you really fix the problem, however, you
-will get the same error message each time you run Perl.  How to really
-fix the problem can be found in L<perllocale> section B<LOCALE PROBLEMS>.
-
 =item Warning: something's wrong
 
 (W) You passed warn() an empty string (the equivalent of C<warn "">) or
@@ -3531,8 +3606,8 @@ So put in parentheses to say what you really mean.
 
 =item write() on closed filehandle %s
 
-(W closed) The filehandle you're writing to got itself closed sometime before now.
-Check your logic flow.
+(W closed) The filehandle you're writing to got itself closed sometime before
+now.  Check your logic flow.
 
 =item X outside of string
 
@@ -3567,79 +3642,11 @@ the eg directory to put a setuid C wrapper around your script.
 
 =item You need to quote "%s"
 
-(W syntax) You assigned a bareword as a signal handler name.  Unfortunately, you
-already have a subroutine of that name declared, which means that Perl 5
+(W syntax) You assigned a bareword as a signal handler name.  Unfortunately,
+you already have a subroutine of that name declared, which means that Perl 5
 will try to call the subroutine when the assignment is executed, which is
 probably not what you want.  (If it IS what you want, put an & in front.)
 
-=item %cetsockopt() on closed socket %s
-
-(W closed) You tried to get or set a socket option on a closed socket.
-Did you forget to check the return value of your socket() call?
-See L<perlfunc/getsockopt> and L<perlfunc/setsockopt>.
-
-=item \1 better written as $1
-
-(W syntax) Outside of patterns, backreferences live on as variables.  The use
-of backslashes is grandfathered on the right-hand side of a
-substitution, but stylistically it's better to use the variable form
-because other Perl programmers will expect it, and it works better
-if there are more than 9 backreferences.
-
-=item '|' and '<' may not both be specified on command line
-
-(F) An error peculiar to VMS.  Perl does its own command line redirection, and
-found that STDIN was a pipe, and that you also tried to redirect STDIN using
-'<'.  Only one STDIN stream to a customer, please.
-
-=item '|' and '>' may not both be specified on command line
-
-(F) An error peculiar to VMS.  Perl does its own command line redirection, and
-thinks you tried to redirect stdout both to a file and into a pipe to another
-command.  You need to choose one or the other, though nothing's stopping you
-from piping into a program or Perl script which 'splits' output into two
-streams, such as
-
-    open(OUT,">$ARGV[0]") or die "Can't write to $ARGV[0]: $!";
-    while (<STDIN>) {
-        print;
-        print OUT;
-    }
-    close OUT;
-
-=item Got an error from DosAllocMem
-
-(P) An error peculiar to OS/2.  Most probably you're using an obsolete
-version of Perl, and this should not happen anyway.
-
-=item Malformed PERLLIB_PREFIX
-
-(F) An error peculiar to OS/2.  PERLLIB_PREFIX should be of the form
-
-    prefix1;prefix2
-
-or
-
-    prefix1 prefix2
-
-with nonempty prefix1 and prefix2.  If C<prefix1> is indeed a prefix
-of a builtin library search path, prefix2 is substituted.  The error
-may appear if components are not found, or are too long.  See
-"PERLLIB_PREFIX" in F<README.os2>.
-
-=item PERL_SH_DIR too long
-
-(F) An error peculiar to OS/2. PERL_SH_DIR is the directory to find the
-C<sh>-shell in.  See "PERL_SH_DIR" in F<README.os2>.
-
-=item Process terminated by SIG%s
-
-(W) This is a standard message issued by OS/2 applications, while *nix
-applications die in silence.  It is considered a feature of the OS/2
-port.  One can easily disable this by appropriate sighandlers, see
-L<perlipc/"Signals">.  See also "Process terminated by SIGTERM/SIGINT"
-in F<README.os2>.
-
 =back
 
 =cut
index 46d1a2a..f1b8792 100644 (file)
@@ -154,7 +154,7 @@ of changing them in place:
     }
 
 Notice how this (unprototyped) function doesn't care whether it was
-passed real scalars or arrays.  Perl sees all arugments as one big,
+passed real scalars or arrays.  Perl sees all arguments as one big,
 long, flat parameter list in C<@_>.  This is one area where
 Perl's simple argument-passing style shines.  The C<upcase()>
 function would work perfectly well without changing the C<upcase()>
@@ -1270,7 +1270,7 @@ see L<attributes>.
 
 See L<perlref/"Function Templates"> for more about references and closures.
 See L<perlxs> if you'd like to learn about calling C subroutines from Perl.  
-See L<perlembed> if you'd like to learn about calling PErl subroutines from C.  
+See L<perlembed> if you'd like to learn about calling Perl subroutines from C.  
 See L<perlmod> to learn about bundling up your functions in separate files.
 See L<perlmodlib> to learn what library modules come standard on your system.
 See L<perltoot> to learn how to make object method calls.
index 724ba12..dfded2e 100644 (file)
@@ -172,7 +172,7 @@ If the LABEL is omitted, the loop control statement
 refers to the innermost enclosing loop.  This may include dynamically
 looking back your call-stack at run time to find the LABEL.  Such
 desperate behavior triggers a warning if you use the C<use warnings>
-praga or the B<-w> flag.
+pragma or the B<-w> flag.
 Unlike a C<foreach> statement, a C<while> statement never implicitly
 localises any variables.
 
@@ -483,7 +483,7 @@ Or
 
 Or if you are certainly that all the C<&&> clauses are true, you can use
 something like this, which "switches" on the value of the
-C<HTTP_USER_AGENT> envariable.
+C<HTTP_USER_AGENT> environment variable.
 
     #!/usr/bin/perl 
     # pick out jargon file page based on browser
index 0f15d57..3a1cf86 100644 (file)
@@ -718,7 +718,7 @@ In addition to synchronizing access to data or resources, you might
 find it useful to synchronize access to subroutines.  You may be
 accessing a singular machine resource (perhaps a vector processor), or
 find it easier to serialize calls to a particular subroutine than to
-have a set of locks and sempahores.
+have a set of locks and semaphores.
 
 One of the additions to Perl 5.005 is subroutine attributes.  The
 Thread package uses these to provide several flavors of
@@ -1029,7 +1029,7 @@ LoVerso. Programming under Mach. Addison-Wesley, 1994, ISBN
 0-201-52739-1.
 
 Tanenbaum, Andrew S. Distributed Operating Systems. Prentice Hall,
-1995, ISBN 0-13-143934-0 (great textbook).
+1995, ISBN 0-13-219908-4 (great textbook).
 
 Silberschatz, Abraham, and Peter B. Galvin. Operating System Concepts,
 4th ed. Addison-Wesley, 1995, ISBN 0-201-59292-4
index 798a24d..6397388 100644 (file)
@@ -95,8 +95,8 @@ line?, Why don't perl one-liners work on my DOS/Mac/VMS system?, Where can
 I learn about CGI or Web programming in Perl?, Where can I learn about
 object-oriented Perl programming?, Where can I learn about linking C with
 Perl? [h2xs, xsubpp], I've read perlembed, perlguts, etc., but I can't
-embed perl inmy C program, what am I doing wrong?, When I tried to run my
-script, I got this message. What does itmean?, What's MakeMaker?,
+embed perl in my C program, what am I doing wrong?, When I tried to run my
+script, I got this message. What does it mean?, What's MakeMaker?,
 L<perlfaq4>: Data Manipulation, Why am I getting long decimals (eg,
 19.9499999999999) instead of the numbers I should be getting (eg, 19.95)?,
 Why isn't my octal data interpreted correctly?, Does Perl have a round()
index f22d473..47febc8 100644 (file)
@@ -85,7 +85,7 @@ We need regression/sanity tests for suidperl
 
 This value may or may not be accurate, but it certainly is
 eye-catching.  For some things perl5 is faster than perl4, but often
-the reliability and extensability have come at a cost of speed.  The
+the reliability and extensibility have come at a cost of speed.  The
 benchmark suite that Gisle released earlier has been hailed as both a
 fantastic solution and as a source of entirely meaningless figures.
 Do we need to test "real applications"?  Can you do so?  Anyone have
@@ -161,7 +161,7 @@ Sarathy, I believe, did the work.  Here's what he has to say:
 
 Yeah, I hope to implement it someday too.  The points that were
 raised in TPC2 were all to do with calling DESTROY() methods, but
-I think we can accomodate that by extending bless() to stash
+I think we can accommodate that by extending bless() to stash
 extra information for objects so we track their lifetime accurately
 for those that want their DESTROY() to be predictable (this will be
 a speed hit, naturally, and will therefore be optional, naturally. :)
index 3c0927e..c696e19 100644 (file)
@@ -534,7 +534,7 @@ the parameters in the correct order for that function.
 =head2 The PREINIT: Keyword
 
 The PREINIT: keyword allows extra variables to be declared immediately
-before or after the declartions of the parameters from the INPUT: section
+before or after the declarations of the parameters from the INPUT: section
 are emitted.
 
 If a variable is declared inside a CODE: section it will follow any typemap
index d79f4b9..4756a9e 100644 (file)
@@ -476,7 +476,7 @@ section on the argument stack.
 In general, it's not a good idea to write extensions that modify their input
 parameters, as in Example 3.  Instead, you should probably return multiple
 values in an array and let the caller handle them (we'll do this in a later
-example).  However, in order to better accomodate calling pre-existing C
+example).  However, in order to better accommodate calling pre-existing C
 routines, which often do modify their input parameters, this behavior is
 tolerated.
 
index 32421d7..297250c 100644 (file)
@@ -38,6 +38,7 @@ INIT { eval { umask(0077) } }   # doubtless someone has no mask
 
 my \@pagers = ();
 push \@pagers, "$Config{'pager'}" if -x "$Config{'pager'}";
+my \$bindir = "$Config{installscript}";
 
 !GROK!THIS!
 
@@ -48,6 +49,7 @@ print OUT <<'!NO!SUBS!';
 use Fcntl;    # for sysopen
 use Getopt::Std;
 use Config '%Config';
+use File::Spec::Functions qw(catfile splitdir);
 
 #
 # Perldoc revision #1 -- look up a piece of documentation in .pod format that
@@ -223,7 +225,7 @@ sub containspod {
 
 sub minus_f_nocase {
      my($dir,$file) = @_;
-     my $path = join('/',$dir,$file);  # XXX: dirseps
+     my $path = catfile($dir,$file);
      return $path if -f $path and -r _;
      if (!$opt_i or $Is_VMS or $Is_MSWin32 or $Is_Dos or $^O eq 'os2') {
         # on a case-forgiving file system or if case is important
@@ -237,13 +239,13 @@ sub minus_f_nocase {
      local($")="/";
      my @p = ($dir);
      my($p,$cip);
-     foreach $p (split(m!/!, $file)){  # XXX: dirseps
-       my $try = "@p/$p";
+     foreach $p (splitdir $file){
+       my $try = catfile @p, $p;
        stat $try;
        if (-d _) {
            push @p, $p;
            if ( $p eq $global_target) {
-               my $tmp_path = join ('/', @p);  # XXX: dirseps
+               my $tmp_path = catfile @p;
                my $path_f = 0;
                for (@global_found) {
                    $path_f = 1 if $_ eq $tmp_path;
@@ -302,7 +304,7 @@ sub searchfor {
     my $ret;
     my $i;
     my $dir;
-    $global_target = (split(m!/!, $s))[-1];   # XXX: dirseps
+    $global_target = (splitdir $s)[-1];   # XXX: why not use File::Basename?
     for ($i=0; $i<@dirs; $i++) {
        $dir = $dirs[$i];
        ($dir = VMS::Filespec::unixpath($dir)) =~ s!/\z!! if $Is_VMS;
@@ -325,10 +327,10 @@ sub searchfor {
 
        if ($recurse) {
            opendir(D,$dir)     or die "Can't opendir $dir: $!";
-           my @newdirs = map "$dir/$_", grep {  # XXX: dirseps
+           my @newdirs = map catfile($dir, $_), grep {
                not /^\.\.?\z/s and
                not /^auto\z/s  and   # save time! don't search auto dirs
-               -d  "$dir/$_"  # XXX: dirseps
+               -d  catfile($dir, $_)
            } readdir D;
            closedir(D)         or die "Can't closedir $dir: $!";
            next unless @newdirs;
@@ -362,7 +364,7 @@ sub printout {
        close OUT   or die "can't close $tmp: $!";
     }
     elsif (not $opt_u) {
-       my $cmd = "pod2man --lax $file | $opt_n -man";
+       my $cmd = catfile($bindir, 'pod2man') . " --lax $file | $opt_n -man";
        $cmd .= " | col -x" if $^O =~ /hpux/;
        my $rslt = `$cmd`;
        $rslt = filter_nroff($rslt) if $filter;
@@ -425,8 +427,7 @@ sub cleanup {
 my @found;
 foreach (@pages) {
     if ($podidx && open(PODIDX, $podidx)) {
-       my $searchfor = $_;
-       $searchfor =~ s,::,/,g;     # XXX: dirseps
+       my $searchfor = catfile split '::';
        print STDERR "Searching for '$searchfor' in $podidx\n" if $opt_v;
        local $_;
        while (<PODIDX>) {
index 0bef835..e6d13f3 100644 (file)
@@ -569,7 +569,7 @@ invoked using C<MCR> or a text file which should be passed to DCL
 as a command procedure.
 
 If LIST consists of the empty string, C<system> spawns an
-interactive DCL subprocess, in the same fashion as typiing
+interactive DCL subprocess, in the same fashion as typing
 B<SPAWN> at the DCL prompt.
 
 Perl waits for the subprocess to complete before continuing
@@ -597,7 +597,7 @@ not appear separately in the "child time" field, depending on
 whether L<times> keeps track of subprocesses separately.  Note
 especially that the VAXCRTL (at least) keeps track only of
 subprocesses spawned using L<fork> and L<exec>; it will not
-accumulate the times of suprocesses spawned via pipes, L<system>,
+accumulate the times of subprocesses spawned via pipes, L<system>,
 or backticks.
 
 =item unlink LIST
@@ -661,7 +661,7 @@ The FLAGS argument is ignored in all cases.
 
 The following VMS-specific information applies to the indicated
 "special" Perl variables, in addition to the general information
-in L<perlvar>.  Where there is a conflict, this infrmation
+in L<perlvar>.  Where there is a conflict, this information
 takes precedence.
 
 =over 4