home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / Perl / Non-RPC / !Perl / lib / diagnostics.pm next >
Text File  |  1999-04-17  |  127KB  |  3,696 lines

  1. package diagnostics;
  2.  
  3. =head1 NAME
  4.  
  5. diagnostics - Perl compiler pragma to force verbose warning diagnostics
  6.  
  7. splain - standalone program to do the same thing
  8.  
  9. =head1 SYNOPSIS
  10.  
  11. As a pragma:
  12.  
  13.     use diagnostics;
  14.     use diagnostics -verbose;
  15.  
  16.     enable  diagnostics;
  17.     disable diagnostics;
  18.  
  19. Aa a program:
  20.  
  21.     perl program 2>diag.out
  22.     splain [-v] [-p] diag.out
  23.  
  24.  
  25. =head1 DESCRIPTION
  26.  
  27. =head2 The C<diagnostics> Pragma
  28.  
  29. This module extends the terse diagnostics normally emitted by both the
  30. perl compiler and the perl interpreter, augmenting them with the more
  31. explicative and endearing descriptions found in L<perldiag>.  Like the
  32. other pragmata, it affects the compilation phase of your program rather
  33. than merely the execution phase.
  34.  
  35. To use in your program as a pragma, merely invoke
  36.  
  37.     use diagnostics;
  38.  
  39. at the start (or near the start) of your program.  (Note 
  40. that this I<does> enable perl's B<-w> flag.)  Your whole
  41. compilation will then be subject(ed :-) to the enhanced diagnostics.
  42. These still go out B<STDERR>.
  43.  
  44. Due to the interaction between runtime and compiletime issues,
  45. and because it's probably not a very good idea anyway,
  46. you may not use C<no diagnostics> to turn them off at compiletime.
  47. However, you may control there behaviour at runtime using the 
  48. disable() and enable() methods to turn them off and on respectively.
  49.  
  50. The B<-verbose> flag first prints out the L<perldiag> introduction before
  51. any other diagnostics.  The $diagnostics::PRETTY variable can generate nicer
  52. escape sequences for pagers.
  53.  
  54. =head2 The I<splain> Program
  55.  
  56. While apparently a whole nuther program, I<splain> is actually nothing
  57. more than a link to the (executable) F<diagnostics.pm> module, as well as
  58. a link to the F<diagnostics.pod> documentation.  The B<-v> flag is like
  59. the C<use diagnostics -verbose> directive.
  60. The B<-p> flag is like the
  61. $diagnostics::PRETTY variable.  Since you're post-processing with 
  62. I<splain>, there's no sense in being able to enable() or disable() processing.
  63.  
  64. Output from I<splain> is directed to B<STDOUT>, unlike the pragma.
  65.  
  66. =head1 EXAMPLES
  67.  
  68. The following file is certain to trigger a few errors at both
  69. runtime and compiletime:
  70.  
  71.     use diagnostics;
  72.     print NOWHERE "nothing\n";
  73.     print STDERR "\n\tThis message should be unadorned.\n";
  74.     warn "\tThis is a user warning";
  75.     print "\nDIAGNOSTIC TESTER: Please enter a <CR> here: ";
  76.     my $a, $b = scalar <STDIN>;
  77.     print "\n";
  78.     print $x/$y;
  79.  
  80. If you prefer to run your program first and look at its problem
  81. afterwards, do this:
  82.  
  83.     perl -w test.pl 2>test.out
  84.     ./splain < test.out
  85.  
  86. Note that this is not in general possible in shells of more dubious heritage, 
  87. as the theoretical 
  88.  
  89.     (perl -w test.pl >/dev/tty) >& test.out
  90.     ./splain < test.out
  91.  
  92. Because you just moved the existing B<stdout> to somewhere else.
  93.  
  94. If you don't want to modify your source code, but still have on-the-fly
  95. warnings, do this:
  96.  
  97.     exec 3>&1; perl -w test.pl 2>&1 1>&3 3>&- | splain 1>&2 3>&- 
  98.  
  99. Nifty, eh?
  100.  
  101. If you want to control warnings on the fly, do something like this.
  102. Make sure you do the C<use> first, or you won't be able to get
  103. at the enable() or disable() methods.
  104.  
  105.     use diagnostics; # checks entire compilation phase 
  106.     print "\ntime for 1st bogus diags: SQUAWKINGS\n";
  107.     print BOGUS1 'nada';
  108.     print "done with 1st bogus\n";
  109.  
  110.     disable diagnostics; # only turns off runtime warnings
  111.     print "\ntime for 2nd bogus: (squelched)\n";
  112.     print BOGUS2 'nada';
  113.     print "done with 2nd bogus\n";
  114.  
  115.     enable diagnostics; # turns back on runtime warnings
  116.     print "\ntime for 3rd bogus: SQUAWKINGS\n";
  117.     print BOGUS3 'nada';
  118.     print "done with 3rd bogus\n";
  119.  
  120.     disable diagnostics;
  121.     print "\ntime for 4th bogus: (squelched)\n";
  122.     print BOGUS4 'nada';
  123.     print "done with 4th bogus\n";
  124.  
  125. =head1 INTERNALS
  126.  
  127. Diagnostic messages derive from the F<perldiag.pod> file when available at
  128. runtime.  Otherwise, they may be embedded in the file itself when the
  129. splain package is built.   See the F<Makefile> for details.
  130.  
  131. If an extant $SIG{__WARN__} handler is discovered, it will continue
  132. to be honored, but only after the diagnostics::splainthis() function 
  133. (the module's $SIG{__WARN__} interceptor) has had its way with your
  134. warnings.
  135.  
  136. There is a $diagnostics::DEBUG variable you may set if you're desperately
  137. curious what sorts of things are being intercepted.
  138.  
  139.     BEGIN { $diagnostics::DEBUG = 1 } 
  140.  
  141.  
  142. =head1 BUGS
  143.  
  144. Not being able to say "no diagnostics" is annoying, but may not be
  145. insurmountable.
  146.  
  147. The C<-pretty> directive is called too late to affect matters.
  148. You have to do this instead, and I<before> you load the module.
  149.  
  150.     BEGIN { $diagnostics::PRETTY = 1 } 
  151.  
  152. I could start up faster by delaying compilation until it should be
  153. needed, but this gets a "panic: top_level" when using the pragma form
  154. in Perl 5.001e.
  155.  
  156. While it's true that this documentation is somewhat subserious, if you use
  157. a program named I<splain>, you should expect a bit of whimsy.
  158.  
  159. =head1 AUTHOR
  160.  
  161. Tom Christiansen <F<tchrist@mox.perl.com>>, 25 June 1995.
  162.  
  163. =cut
  164.  
  165. require 5.001;
  166. use Carp;
  167.  
  168. use Config;
  169. ($privlib, $archlib) = @Config{qw(privlibexp archlibexp)};
  170. if ($^O eq 'VMS') {
  171.     require VMS::Filespec;
  172.     $privlib = VMS::Filespec::unixify($privlib);
  173.     $archlib = VMS::Filespec::unixify($archlib);
  174. }
  175. @trypod = ("$archlib/pod/perldiag.pod",
  176.        "$privlib/pod/perldiag-$].pod",
  177.        "$privlib/pod/perldiag.pod");
  178. # handy for development testing of new warnings etc
  179. unshift @trypod, "./pod/perldiag.pod" if -e "pod/perldiag.pod";
  180. ($PODFILE) = ((grep { -e } @trypod), $trypod[$#trypod])[0];
  181.  
  182. $DEBUG ||= 0;
  183. my $WHOAMI = ref bless [];  # nobody's business, prolly not even mine
  184.  
  185. $| = 1;
  186.  
  187. local $_;
  188.  
  189. CONFIG: {
  190.     $opt_p = $opt_d = $opt_v = $opt_f = '';
  191.     %HTML_2_Troff = %HTML_2_Latin_1 = %HTML_2_ASCII_7 = ();  
  192.     %exact_duplicate = ();
  193.  
  194.     unless (caller) { 
  195.     $standalone++;
  196.     require Getopt::Std;
  197.     Getopt::Std::getopts('pdvf:')
  198.         or die "Usage: $0 [-v] [-p] [-f splainpod]";
  199.     $PODFILE = $opt_f if $opt_f;
  200.     $DEBUG = 2 if $opt_d;
  201.     $VERBOSE = $opt_v;
  202.     $PRETTY = $opt_p;
  203.     } 
  204.  
  205.     if (open(POD_DIAG, $PODFILE)) {
  206.     warn "Happy happy podfile from real $PODFILE\n" if $DEBUG;
  207.     last CONFIG;
  208.     } 
  209.  
  210.     if (caller) {
  211.     INCPATH: {
  212.         for $file ( (map { "$_/$WHOAMI.pm" } @INC), $0) {
  213.         warn "Checking $file\n" if $DEBUG;
  214.         if (open(POD_DIAG, $file)) {
  215.             while (<POD_DIAG>) {
  216.             next unless /^__END__\s*# wish diag dbase were more accessible/;
  217.             print STDERR "podfile is $file\n" if $DEBUG;
  218.             last INCPATH;
  219.             }
  220.         }
  221.         } 
  222.     }
  223.     *POD_DIAG = *DATA;
  224.     } else { 
  225.     print STDERR "podfile is <DATA>\n" if $DEBUG;
  226.     *POD_DIAG = *main::DATA;
  227.     }
  228. }
  229. if (eof(POD_DIAG)) { 
  230.     die "couldn't find diagnostic data in $PODFILE @INC $0";
  231. }
  232.  
  233.  
  234. %HTML_2_Troff = (
  235.     'amp'    =>    '&',    #   ampersand
  236.     'lt'    =>    '<',    #   left chevron, less-than
  237.     'gt'    =>    '>',    #   right chevron, greater-than
  238.     'quot'    =>    '"',    #   double quote
  239.  
  240.     "Aacute"    =>    "A\\*'",    #   capital A, acute accent
  241.     # etc
  242.  
  243. );
  244.  
  245. %HTML_2_Latin_1 = (
  246.     'amp'    =>    '&',    #   ampersand
  247.     'lt'    =>    '<',    #   left chevron, less-than
  248.     'gt'    =>    '>',    #   right chevron, greater-than
  249.     'quot'    =>    '"',    #   double quote
  250.  
  251.     "Aacute"    =>    "\xC1"    #   capital A, acute accent
  252.  
  253.     # etc
  254. );
  255.  
  256. %HTML_2_ASCII_7 = (
  257.     'amp'    =>    '&',    #   ampersand
  258.     'lt'    =>    '<',    #   left chevron, less-than
  259.     'gt'    =>    '>',    #   right chevron, greater-than
  260.     'quot'    =>    '"',    #   double quote
  261.  
  262.     "Aacute"    =>    "A"    #   capital A, acute accent
  263.     # etc
  264. );
  265.  
  266. *HTML_Escapes = do {
  267.     if ($standalone) {
  268.     $PRETTY ? \%HTML_2_Latin_1 : \%HTML_2_ASCII_7; 
  269.     } else {
  270.     \%HTML_2_Latin_1; 
  271.     }
  272. }; 
  273.  
  274. *THITHER = $standalone ? *STDOUT : *STDERR;
  275.  
  276. $transmo = <<EOFUNC;
  277. sub transmo {
  278.     local \$^W = 0;  # recursive warnings we do NOT need!
  279.     study;
  280. EOFUNC
  281.  
  282. ### sub finish_compilation {  # 5.001e panic: top_level for embedded version
  283.     print STDERR "FINISHING COMPILATION for $_\n" if $DEBUG;
  284.     ### local 
  285.     $RS = '';
  286.     local $_;
  287.     while (<POD_DIAG>) {
  288.     #s/(.*)\n//;
  289.     #$header = $1;
  290.  
  291.     unescape();
  292.     if ($PRETTY) {
  293.         sub noop   { return $_[0] }  # spensive for a noop
  294.         sub bold   { my $str =$_[0];  $str =~ s/(.)/$1\b$1/g; return $str; } 
  295.         sub italic { my $str = $_[0]; $str =~ s/(.)/_\b$1/g;  return $str; } 
  296.         s/[BC]<(.*?)>/bold($1)/ges;
  297.         s/[LIF]<(.*?)>/italic($1)/ges;
  298.     } else {
  299.         s/[BC]<(.*?)>/$1/gs;
  300.         s/[LIF]<(.*?)>/$1/gs;
  301.     } 
  302.     unless (/^=/) {
  303.         if (defined $header) { 
  304.         if ( $header eq 'DESCRIPTION' && 
  305.             (   /Optional warnings are enabled/ 
  306.              || /Some of these messages are generic./
  307.             ) )
  308.         {
  309.             next;
  310.         } 
  311.         s/^/    /gm;
  312.         $msg{$header} .= $_;
  313.         }
  314.         next;
  315.     } 
  316.     unless ( s/=item (.*)\s*\Z//) {
  317.  
  318.         if ( s/=head1\sDESCRIPTION//) {
  319.         $msg{$header = 'DESCRIPTION'} = '';
  320.         }
  321.         next;
  322.     }
  323.  
  324.     # strip formatting directives in =item line
  325.     ($header = $1) =~ s/[A-Z]<(.*?)>/$1/g;
  326.  
  327.     if ($header =~ /%[sd]/) {
  328.         $rhs = $lhs = $header;
  329.         #if ($lhs =~ s/(.*?)%d(?!%d)(.*)/\Q$1\E\\d+\Q$2\E\$/g)  {
  330.         if ($lhs =~ s/(.*?)%d(?!%d)(.*)/\Q$1\E\\d+\Q$2\E/g)  {
  331.         $lhs =~ s/\\%s/.*?/g;
  332.         } else {
  333.         # if i had lookbehind negations, i wouldn't have to do this \377 noise
  334.         $lhs =~ s/(.*?)%s/\Q$1\E.*?\377/g;
  335.         #$lhs =~ s/\377([^\377]*)$/\Q$1\E\$/;
  336.         $lhs =~ s/\377([^\377]*)$/\Q$1\E/;
  337.         $lhs =~ s/\377//g;
  338.         $lhs =~ s/\.\*\?$/.*/; # Allow %s at the end to eat it all
  339.         } 
  340.         $transmo .= "    s{^$lhs}\n     {\Q$rhs\E}s\n\t&& return 1;\n";
  341.     } else {
  342.         $transmo .= "    m{^\Q$header\E} && return 1;\n";
  343.     } 
  344.  
  345.     print STDERR "$WHOAMI: Duplicate entry: \"$header\"\n"
  346.         if $msg{$header};
  347.  
  348.     $msg{$header} = '';
  349.     } 
  350.  
  351.  
  352.     close POD_DIAG unless *main::DATA eq *POD_DIAG;
  353.  
  354.     die "No diagnostics?" unless %msg;
  355.  
  356.     $transmo .= "    return 0;\n}\n";
  357.     print STDERR $transmo if $DEBUG;
  358.     eval $transmo;
  359.     die $@ if $@;
  360.     $RS = "\n";
  361. ### }
  362.  
  363. if ($standalone) {
  364.     if (!@ARGV and -t STDIN) { print STDERR "$0: Reading from STDIN\n" } 
  365.     while (defined ($error = <>)) {
  366.     splainthis($error) || print THITHER $error;
  367.     } 
  368.     exit;
  369. } else { 
  370.     $old_w = 0; $oldwarn = ''; $olddie = '';
  371. }
  372.  
  373. sub import {
  374.     shift;
  375.     $old_w = $^W;
  376.     $^W = 1; # yup, clobbered the global variable; tough, if you
  377.          # want diags, you want diags.
  378.     return if $SIG{__WARN__} eq \&warn_trap;
  379.  
  380.     for (@_) {
  381.  
  382.     /^-d(ebug)?$/            && do {
  383.                     $DEBUG++;
  384.                     next;
  385.                    };
  386.  
  387.     /^-v(erbose)?$/     && do {
  388.                     $VERBOSE++;
  389.                     next;
  390.                    };
  391.  
  392.     /^-p(retty)?$/         && do {
  393.                     print STDERR "$0: I'm afraid it's too late for prettiness.\n";
  394.                     $PRETTY++;
  395.                     next;
  396.                    };
  397.  
  398.     warn "Unknown flag: $_";
  399.     } 
  400.  
  401.     $oldwarn = $SIG{__WARN__};
  402.     $olddie = $SIG{__DIE__};
  403.     $SIG{__WARN__} = \&warn_trap;
  404.     $SIG{__DIE__} = \&death_trap;
  405.  
  406. sub enable { &import }
  407.  
  408. sub disable {
  409.     shift;
  410.     $^W = $old_w;
  411.     return unless $SIG{__WARN__} eq \&warn_trap;
  412.     $SIG{__WARN__} = $oldwarn;
  413.     $SIG{__DIE__} = $olddie;
  414.  
  415. sub warn_trap {
  416.     my $warning = $_[0];
  417.     if (caller eq $WHOAMI or !splainthis($warning)) {
  418.     print STDERR $warning;
  419.     } 
  420.     &$oldwarn if defined $oldwarn and $oldwarn and $oldwarn ne \&warn_trap;
  421. };
  422.  
  423. sub death_trap {
  424.     my $exception = $_[0];
  425.  
  426.     # See if we are coming from anywhere within an eval. If so we don't
  427.     # want to explain the exception because it's going to get caught.
  428.     my $in_eval = 0;
  429.     my $i = 0;
  430.     while (1) {
  431.       my $caller = (caller($i++))[3] or last;
  432.       if ($caller eq '(eval)') {
  433.     $in_eval = 1;
  434.     last;
  435.       }
  436.     }
  437.  
  438.     splainthis($exception) unless $in_eval;
  439.     if (caller eq $WHOAMI) { print STDERR "INTERNAL EXCEPTION: $exception"; } 
  440.     &$olddie if defined $olddie and $olddie and $olddie ne \&death_trap;
  441.  
  442.     # We don't want to unset these if we're coming from an eval because
  443.     # then we've turned off diagnostics. (Actually what does this next
  444.     # line do?  -PSeibel)
  445.     $SIG{__DIE__} = $SIG{__WARN__} = '' unless $in_eval;
  446.     local($Carp::CarpLevel) = 1;
  447.     confess "Uncaught exception from user code:\n\t$exception";
  448.     # up we go; where we stop, nobody knows, but i think we die now
  449.     # but i'm deeply afraid of the &$olddie guy reraising and us getting
  450.     # into an indirect recursion loop
  451. };
  452.  
  453. sub splainthis {
  454.     local $_ = shift;
  455.     local $\;
  456.     ### &finish_compilation unless %msg;
  457.     s/\.?\n+$//;
  458.     my $orig = $_;
  459.     # return unless defined;
  460.     if ($exact_duplicate{$_}++) {
  461.     return 1;
  462.     } 
  463.     s/, <.*?> (?:line|chunk).*$//;
  464.     $real = s/(.*?) at .*? (?:line|chunk) \d+.*/$1/;
  465.     s/^\((.*)\)$/$1/;
  466.     return 0 unless &transmo;
  467.     $orig = shorten($orig);
  468.     if ($old_diag{$_}) {
  469.     autodescribe();
  470.     print THITHER "$orig (#$old_diag{$_})\n";
  471.     $wantspace = 1;
  472.     } else {
  473.     autodescribe();
  474.     $old_diag{$_} = ++$count;
  475.     print THITHER "\n" if $wantspace;
  476.     $wantspace = 0;
  477.     print THITHER "$orig (#$old_diag{$_})\n";
  478.     if ($msg{$_}) {
  479.         print THITHER $msg{$_};
  480.     } else {
  481.         if (0 and $standalone) { 
  482.         print THITHER "    **** Error #$old_diag{$_} ",
  483.             ($real ? "is" : "appears to be"),
  484.             " an unknown diagnostic message.\n\n";
  485.         }
  486.         return 0;
  487.     } 
  488.     }
  489.     return 1;
  490.  
  491. sub autodescribe {
  492.     if ($VERBOSE and not $count) {
  493.     print THITHER &{$PRETTY ? \&bold : \&noop}("DESCRIPTION OF DIAGNOSTICS"),
  494.         "\n$msg{DESCRIPTION}\n";
  495.     } 
  496.  
  497. sub unescape { 
  498.     s {
  499.             E<  
  500.             ( [A-Za-z]+ )       
  501.             >   
  502.     } { 
  503.          do {   
  504.              exists $HTML_Escapes{$1}
  505.                 ? do { $HTML_Escapes{$1} }
  506.                 : do {
  507.                     warn "Unknown escape: E<$1> in $_";
  508.                     "E<$1>";
  509.                 } 
  510.          } 
  511.     }egx;
  512. }
  513.  
  514. sub shorten {
  515.     my $line = $_[0];
  516.     if (length($line) > 79 and index($line, "\n") == -1) {
  517.     my $space_place = rindex($line, ' ', 79);
  518.     if ($space_place != -1) {
  519.         substr($line, $space_place, 1) = "\n\t";
  520.     } 
  521.     } 
  522.     return $line;
  523.  
  524.  
  525. # have to do this: RS isn't set until run time, but we're executing at compile time
  526. $RS = "\n";
  527.  
  528. 1 unless $standalone;  # or it'll complain about itself
  529. __DATA__ # wish diag dbase were more accessible
  530. =head1 NAME
  531.  
  532. perldiag - various Perl diagnostics
  533.  
  534. =head1 DESCRIPTION
  535.  
  536. These messages are classified as follows (listed in increasing order of
  537. desperation):
  538.  
  539.     (W) A warning (optional).
  540.     (D) A deprecation (optional).
  541.     (S) A severe warning (mandatory).
  542.     (F) A fatal error (trappable).
  543.     (P) An internal error you should never see (trappable).
  544.     (X) A very fatal error (nontrappable).
  545.     (A) An alien error message (not generated by Perl).
  546.  
  547. Optional warnings are enabled by using the B<-w> switch.  Warnings may
  548. be captured by setting C<$SIG{__WARN__}> to a reference to a routine that
  549. will be called on each warning instead of printing it.  See L<perlvar>.
  550. Trappable errors may be trapped using the eval operator.  See
  551. L<perlfunc/eval>.
  552.  
  553. Some of these messages are generic.  Spots that vary are denoted with a %s,
  554. just as in a printf format.  Note that some messages start with a %s!
  555. The symbols C<"%(-?@> sort before the letters, while C<[> and C<\> sort after.
  556.  
  557. =over 4
  558.  
  559. =item "my" variable %s can't be in a package
  560.  
  561. (F) Lexically scoped variables aren't in a package, so it doesn't make sense
  562. to try to declare one with a package qualifier on the front.  Use local()
  563. if you want to localize a package variable.
  564.  
  565. =item "my" variable %s masks earlier declaration in same %s
  566.  
  567. (W) A lexical variable has been redeclared in the current scope or statement,
  568. effectively eliminating all access to the previous instance.  This is almost
  569. always a typographical error.  Note that the earlier variable will still exist
  570. until the end of the scope or until all closure referents to it are
  571. destroyed.
  572.  
  573. =item "no" not allowed in expression
  574.  
  575. (F) The "no" keyword is recognized and executed at compile time, and returns
  576. no useful value.  See L<perlmod>.
  577.  
  578. =item "use" not allowed in expression
  579.  
  580. (F) The "use" keyword is recognized and executed at compile time, and returns
  581. no useful value.  See L<perlmod>.
  582.  
  583. =item % may only be used in unpack
  584.  
  585. (F) You can't pack a string by supplying a checksum, because the
  586. checksumming process loses information, and you can't go the other
  587. way.  See L<perlfunc/unpack>.
  588.  
  589. =item %s (...) interpreted as function
  590.  
  591. (W) You've run afoul of the rule that says that any list operator followed
  592. by parentheses turns into a function, with all the list operators arguments
  593. found inside the parentheses.  See L<perlop/Terms and List Operators (Leftward)>.
  594.  
  595. =item %s argument is not a HASH element
  596.  
  597. (F) The argument to exists() must be a hash element, such as
  598.  
  599.     $foo{$bar}
  600.     $ref->[12]->{"susie"}
  601.  
  602. =item %s argument is not a HASH element or slice
  603.  
  604. (F) The argument to delete() must be either a hash element, such as
  605.  
  606.     $foo{$bar}
  607.     $ref->[12]->{"susie"}
  608.  
  609. or a hash slice, such as
  610.  
  611.     @foo{$bar, $baz, $xyzzy}
  612.     @{$ref->[12]}{"susie", "queue"}
  613.  
  614. =item %s did not return a true value
  615.  
  616. (F) A required (or used) file must return a true value to indicate that
  617. it compiled correctly and ran its initialization code correctly.  It's
  618. traditional to end such a file with a "1;", though any true value would
  619. do.  See L<perlfunc/require>.
  620.  
  621. =item %s found where operator expected
  622.  
  623. (S) The Perl lexer knows whether to expect a term or an operator.  If it
  624. sees what it knows to be a term when it was expecting to see an operator,
  625. it gives you this warning.  Usually it indicates that an operator or
  626. delimiter was omitted, such as a semicolon.
  627.  
  628. =item %s had compilation errors
  629.  
  630. (F) The final summary message when a C<perl -c> fails.
  631.  
  632. =item %s has too many errors
  633.  
  634. (F) The parser has given up trying to parse the program after 10 errors.
  635. Further error messages would likely be uninformative.
  636.  
  637. =item %s matches null string many times
  638.  
  639. (W) The pattern you've specified would be an infinite loop if the
  640. regular expression engine didn't specifically check for that.  See L<perlre>.
  641.  
  642. =item %s never introduced
  643.  
  644. (S) The symbol in question was declared but somehow went out of scope
  645. before it could possibly have been used.
  646.  
  647. =item %s syntax OK
  648.  
  649. (F) The final summary message when a C<perl -c> succeeds.
  650.  
  651. =item %s: Command not found
  652.  
  653. (A) You've accidentally run your script through B<csh> instead
  654. of Perl.  Check the #! line, or manually feed your script into
  655. Perl yourself.
  656.  
  657. =item %s: Expression syntax
  658.  
  659. (A) You've accidentally run your script through B<csh> instead
  660. of Perl.  Check the #! line, or manually feed your script into
  661. Perl yourself.
  662.  
  663. =item %s: Undefined variable
  664.  
  665. (A) You've accidentally run your script through B<csh> instead
  666. of Perl.  Check the #! line, or manually feed your script into
  667. Perl yourself.
  668.  
  669. =item %s: not found
  670.  
  671. (A) You've accidentally run your script through the Bourne shell
  672. instead of Perl.  Check the #! line, or manually feed your script
  673. into Perl yourself.
  674.  
  675. =item         (in cleanup) %s
  676.  
  677. (W) This prefix usually indicates that a DESTROY() method raised
  678. the indicated exception.  Since destructors are usually called by
  679. the system at arbitrary points during execution, and often a vast
  680. number of times, the warning is issued only once for any number
  681. of failures that would otherwise result in the same message being
  682. repeated.
  683.  
  684. Failure of user callbacks dispatched using the C<G_KEEPERR> flag
  685. could also result in this warning.  See L<perlcall/G_KEEPERR>.
  686.  
  687. =item         (Missing semicolon on previous line?)
  688.  
  689. (S) This is an educated guess made in conjunction with the message "%s
  690. found where operator expected".  Don't automatically put a semicolon on
  691. the previous line just because you saw this message.
  692.  
  693. =item B<-P> not allowed for setuid/setgid script
  694.  
  695. (F) The script would have to be opened by the C preprocessor by name,
  696. which provides a race condition that breaks security.
  697.  
  698. =item C<-T> and C<-B> not implemented on filehandles
  699.  
  700. (F) Perl can't peek at the stdio buffer of filehandles when it doesn't
  701. know about your kind of stdio.  You'll have to use a filename instead.
  702.  
  703. =item C<-p> destination: %s
  704.  
  705. (F) An error occurred during the implicit output invoked by the C<-p>
  706. command-line switch.  (This output goes to STDOUT unless you've
  707. redirected it with select().)
  708.  
  709. =item 500 Server error
  710.  
  711. See Server error.
  712.  
  713. =item ?+* follows nothing in regexp
  714.  
  715. (F) You started a regular expression with a quantifier.  Backslash it
  716. if you meant it literally.   See L<perlre>.
  717.  
  718. =item @ outside of string
  719.  
  720. (F) You had a pack template that specified an absolute position outside
  721. the string being unpacked.  See L<perlfunc/pack>.
  722.  
  723. =item accept() on closed fd
  724.  
  725. (W) You tried to do an accept on a closed socket.  Did you forget to check
  726. the return value of your socket() call?  See L<perlfunc/accept>.
  727.  
  728. =item Allocation too large: %lx
  729.  
  730. (X) You can't allocate more than 64K on an MS-DOS machine.
  731.  
  732. =item Applying %s to %s will act on scalar(%s)
  733.  
  734. (W) The pattern match (//), substitution (s///), and transliteration (tr///)
  735. operators work on scalar values.  If you apply one of them to an array
  736. or a hash, it will convert the array or hash to a scalar value -- the
  737. length of an array, or the population info of a hash -- and then work on
  738. that scalar value.  This is probably not what you meant to do.  See
  739. L<perlfunc/grep> and L<perlfunc/map> for alternatives.
  740.  
  741. =item Arg too short for msgsnd
  742.  
  743. (F) msgsnd() requires a string at least as long as sizeof(long).
  744.  
  745. =item Ambiguous use of %s resolved as %s
  746.  
  747. (W)(S) You said something that may not be interpreted the way
  748. you thought.  Normally it's pretty easy to disambiguate it by supplying
  749. a missing quote, operator, parenthesis pair or declaration.
  750.  
  751. =item Ambiguous call resolved as CORE::%s(), qualify as such or use &
  752.  
  753. (W) A subroutine you have declared has the same name as a Perl keyword,
  754. and you have used the name without qualification for calling one or the
  755. other.  Perl decided to call the builtin because the subroutine is
  756. not imported.
  757.  
  758. To force interpretation as a subroutine call, either put an ampersand
  759. before the subroutine name, or qualify the name with its package.
  760. Alternatively, you can import the subroutine (or pretend that it's
  761. imported with the C<use subs> pragma).
  762.  
  763. To silently interpret it as the Perl operator, use the C<CORE::> prefix
  764. on the operator (e.g. C<CORE::log($x)>) or by declaring the subroutine
  765. to be an object method (see L<attrs>).
  766.  
  767. =item Args must match #! line
  768.  
  769. (F) The setuid emulator requires that the arguments Perl was invoked
  770. with match the arguments specified on the #! line.  Since some systems
  771. impose a one-argument limit on the #! line, try combining switches;
  772. for example, turn C<-w -U> into C<-wU>.
  773.  
  774. =item Argument "%s" isn't numeric%s
  775.  
  776. (W) The indicated string was fed as an argument to an operator that
  777. expected a numeric value instead.  If you're fortunate the message
  778. will identify which operator was so unfortunate.
  779.  
  780. =item Array @%s missing the @ in argument %d of %s()
  781.  
  782. (D) Really old Perl let you omit the @ on array names in some spots.  This
  783. is now heavily deprecated.
  784.  
  785. =item assertion botched: %s
  786.  
  787. (P) The malloc package that comes with Perl had an internal failure.
  788.  
  789. =item Assertion failed: file "%s"
  790.  
  791. (P) A general assertion failed.  The file in question must be examined.
  792.  
  793. =item Assignment to both a list and a scalar
  794.  
  795. (F) If you assign to a conditional operator, the 2nd and 3rd arguments
  796. must either both be scalars or both be lists.  Otherwise Perl won't
  797. know which context to supply to the right side.
  798.  
  799. =item Attempt to free non-arena SV: 0x%lx
  800.  
  801. (P) All SV objects are supposed to be allocated from arenas that will
  802. be garbage collected on exit.  An SV was discovered to be outside any
  803. of those arenas.
  804.  
  805. =item Attempt to free nonexistent shared string
  806.  
  807. (P) Perl maintains a reference counted internal table of strings to
  808. optimize the storage and access of hash keys and other strings.  This
  809. indicates someone tried to decrement the reference count of a string
  810. that can no longer be found in the table.
  811.  
  812. =item Attempt to free temp prematurely
  813.  
  814. (W) Mortalized values are supposed to be freed by the free_tmps()
  815. routine.  This indicates that something else is freeing the SV before
  816. the free_tmps() routine gets a chance, which means that the free_tmps()
  817. routine will be freeing an unreferenced scalar when it does try to free
  818. it.
  819.  
  820. =item Attempt to free unreferenced glob pointers
  821.  
  822. (P) The reference counts got screwed up on symbol aliases.
  823.  
  824. =item Attempt to free unreferenced scalar
  825.  
  826. (W) Perl went to decrement the reference count of a scalar to see if it
  827. would go to 0, and discovered that it had already gone to 0 earlier,
  828. and should have been freed, and in fact, probably was freed.  This
  829. could indicate that SvREFCNT_dec() was called too many times, or that
  830. SvREFCNT_inc() was called too few times, or that the SV was mortalized
  831. when it shouldn't have been, or that memory has been corrupted.
  832.  
  833. =item Attempt to pack pointer to temporary value
  834.  
  835. (W) You tried to pass a temporary value (like the result of a
  836. function, or a computed expression) to the "p" pack() template.  This
  837. means the result contains a pointer to a location that could become
  838. invalid anytime, even before the end of the current statement.  Use
  839. literals or global values as arguments to the "p" pack() template to
  840. avoid this warning.
  841.  
  842. =item Attempt to use reference as lvalue in substr
  843.  
  844. (W) You supplied a reference as the first argument to substr() used
  845. as an lvalue, which is pretty strange.  Perhaps you forgot to
  846. dereference it first.  See L<perlfunc/substr>.
  847.  
  848. =item Bad arg length for %s, is %d, should be %d
  849.  
  850. (F) You passed a buffer of the wrong size to one of msgctl(), semctl() or
  851. shmctl().  In C parlance, the correct sizes are, respectively,
  852. S<sizeof(struct msqid_ds *)>, S<sizeof(struct semid_ds *)>, and
  853. S<sizeof(struct shmid_ds *)>.
  854.  
  855. =item Bad filehandle: %s
  856.  
  857. (F) A symbol was passed to something wanting a filehandle, but the symbol
  858. has no filehandle associated with it.  Perhaps you didn't do an open(), or
  859. did it in another package.
  860.  
  861. =item Bad free() ignored
  862.  
  863. (S) An internal routine called free() on something that had never been
  864. malloc()ed in the first place. Mandatory, but can be disabled by
  865. setting environment variable C<PERL_BADFREE> to 1.
  866.  
  867. This message can be quite often seen with DB_File on systems with
  868. "hard" dynamic linking, like C<AIX> and C<OS/2>. It is a bug of
  869. C<Berkeley DB> which is left unnoticed if C<DB> uses I<forgiving>
  870. system malloc().
  871.  
  872. =item Bad hash
  873.  
  874. (P) One of the internal hash routines was passed a null HV pointer.
  875.  
  876. =item Bad index while coercing array into hash
  877.  
  878. (F) The index looked up in the hash found as the 0'th element of a
  879. pseudo-hash is not legal.  Index values must be at 1 or greater.
  880. See L<perlref>.
  881.  
  882. =item Bad name after %s::
  883.  
  884. (F) You started to name a symbol by using a package prefix, and then didn't
  885. finish the symbol.  In particular, you can't interpolate outside of quotes,
  886. so
  887.  
  888.     $var = 'myvar';
  889.     $sym = mypack::$var;
  890.  
  891. is not the same as
  892.  
  893.     $var = 'myvar';
  894.     $sym = "mypack::$var";
  895.  
  896. =item Bad symbol for array
  897.  
  898. (P) An internal request asked to add an array entry to something that
  899. wasn't a symbol table entry.
  900.  
  901. =item Bad symbol for filehandle
  902.  
  903. (P) An internal request asked to add a filehandle entry to something that
  904. wasn't a symbol table entry.
  905.  
  906. =item Bad symbol for hash
  907.  
  908. (P) An internal request asked to add a hash entry to something that
  909. wasn't a symbol table entry.
  910.  
  911. =item Badly placed ()'s
  912.  
  913. (A) You've accidentally run your script through B<csh> instead
  914. of Perl.  Check the #! line, or manually feed your script into
  915. Perl yourself.
  916.  
  917. =item Bareword "%s" not allowed while "strict subs" in use
  918.  
  919. (F) With "strict subs" in use, a bareword is only allowed as a
  920. subroutine identifier, in curly brackets or to the left of the "=>" symbol.
  921. Perhaps you need to predeclare a subroutine?
  922.  
  923. =item Bareword "%s" refers to nonexistent package
  924.  
  925. (W) You used a qualified bareword of the form C<Foo::>, but
  926. the compiler saw no other uses of that namespace before that point.
  927. Perhaps you need to predeclare a package?
  928.  
  929. =item BEGIN failed--compilation aborted
  930.  
  931. (F) An untrapped exception was raised while executing a BEGIN subroutine.
  932. Compilation stops immediately and the interpreter is exited.
  933.  
  934. =item BEGIN not safe after errors--compilation aborted
  935.  
  936. (F) Perl found a C<BEGIN {}> subroutine (or a C<use> directive, which
  937. implies a C<BEGIN {}>) after one or more compilation errors had
  938. already occurred.  Since the intended environment for the C<BEGIN {}>
  939. could not be guaranteed (due to the errors), and since subsequent code
  940. likely depends on its correct operation, Perl just gave up.
  941.  
  942. =item bind() on closed fd
  943.  
  944. (W) You tried to do a bind on a closed socket.  Did you forget to check
  945. the return value of your socket() call?  See L<perlfunc/bind>.
  946.  
  947. =item Bizarre copy of %s in %s
  948.  
  949. (P) Perl detected an attempt to copy an internal value that is not copiable.
  950.  
  951. =item Callback called exit
  952.  
  953. (F) A subroutine invoked from an external package via perl_call_sv()
  954. exited by calling exit.
  955.  
  956. =item Can't "goto" outside a block
  957.  
  958. (F) A "goto" statement was executed to jump out of what might look
  959. like a block, except that it isn't a proper block.  This usually
  960. occurs if you tried to jump out of a sort() block or subroutine, which
  961. is a no-no.  See L<perlfunc/goto>.
  962.  
  963. =item Can't "goto" into the middle of a foreach loop
  964.  
  965. (F) A "goto" statement was executed to jump into the middle of a
  966. foreach loop.  You can't get there from here.  See L<perlfunc/goto>.
  967.  
  968. =item Can't "last" outside a block
  969.  
  970. (F) A "last" statement was executed to break out of the current block,
  971. except that there's this itty bitty problem called there isn't a
  972. current block.  Note that an "if" or "else" block doesn't count as a
  973. "loopish" block, as doesn't a block given to sort().  You can usually double
  974. the curlies to get the same effect though, because the inner curlies
  975. will be considered a block that loops once.  See L<perlfunc/last>.
  976.  
  977. =item Can't "next" outside a block
  978.  
  979. (F) A "next" statement was executed to reiterate the current block, but
  980. there isn't a current block.  Note that an "if" or "else" block doesn't
  981. count as a "loopish" block, as doesn't a block given to sort().  You can
  982. usually double the curlies to get the same effect though, because the inner
  983. curlies will be considered a block that loops once.  See L<perlfunc/next>.
  984.  
  985. =item Can't "redo" outside a block
  986.  
  987. (F) A "redo" statement was executed to restart the current block, but
  988. there isn't a current block.  Note that an "if" or "else" block doesn't
  989. count as a "loopish" block, as doesn't a block given to sort().  You can
  990. usually double the curlies to get the same effect though, because the inner
  991. curlies will be considered a block that loops once.  See L<perlfunc/redo>.
  992.  
  993. =item Can't bless non-reference value
  994.  
  995. (F) Only hard references may be blessed.  This is how Perl "enforces"
  996. encapsulation of objects.  See L<perlobj>.
  997.  
  998. =item Can't break at that line
  999.  
  1000. (S) A warning intended to only be printed while running within the debugger, indicating
  1001. the line number specified wasn't the location of a statement that could
  1002. be stopped at.
  1003.  
  1004. =item Can't call method "%s" in empty package "%s"
  1005.  
  1006. (F) You called a method correctly, and it correctly indicated a package
  1007. functioning as a class, but that package doesn't have ANYTHING defined
  1008. in it, let alone methods.  See L<perlobj>.
  1009.  
  1010. =item Can't call method "%s" on unblessed reference
  1011.  
  1012. (F) A method call must know in what package it's supposed to run.  It
  1013. ordinarily finds this out from the object reference you supply, but
  1014. you didn't supply an object reference in this case.  A reference isn't
  1015. an object reference until it has been blessed.  See L<perlobj>.
  1016.  
  1017. =item Can't call method "%s" without a package or object reference
  1018.  
  1019. (F) You used the syntax of a method call, but the slot filled by the
  1020. object reference or package name contains an expression that returns
  1021. a defined value which is neither an object reference nor a package name.
  1022. Something like this will reproduce the error:
  1023.  
  1024.     $BADREF = 42;
  1025.     process $BADREF 1,2,3;
  1026.     $BADREF->process(1,2,3);
  1027.  
  1028. =item Can't call method "%s" on an undefined value
  1029.  
  1030. (F) You used the syntax of a method call, but the slot filled by the
  1031. object reference or package name contains an undefined value.
  1032. Something like this will reproduce the error:
  1033.  
  1034.     $BADREF = undef;
  1035.     process $BADREF 1,2,3;
  1036.     $BADREF->process(1,2,3);
  1037.  
  1038. =item Can't chdir to %s
  1039.  
  1040. (F) You called C<perl -x/foo/bar>, but C</foo/bar> is not a directory
  1041. that you can chdir to, possibly because it doesn't exist.
  1042.  
  1043. =item Can't check filesystem of script "%s" for nosuid
  1044.  
  1045. (P) For some reason you can't check the filesystem of the script for nosuid.
  1046.  
  1047. =item Can't coerce %s to integer in %s
  1048.  
  1049. (F) Certain types of SVs, in particular real symbol table entries
  1050. (typeglobs), can't be forced to stop being what they are.  So you can't
  1051. say things like:
  1052.  
  1053.     *foo += 1;
  1054.  
  1055. You CAN say
  1056.  
  1057.     $foo = *foo;
  1058.     $foo += 1;
  1059.  
  1060. but then $foo no longer contains a glob.
  1061.  
  1062. =item Can't coerce %s to number in %s
  1063.  
  1064. (F) Certain types of SVs, in particular real symbol table entries
  1065. (typeglobs), can't be forced to stop being what they are.
  1066.  
  1067. =item Can't coerce %s to string in %s
  1068.  
  1069. (F) Certain types of SVs, in particular real symbol table entries
  1070. (typeglobs), can't be forced to stop being what they are.
  1071.  
  1072. =item Can't coerce array into hash
  1073.  
  1074. (F) You used an array where a hash was expected, but the array has no
  1075. information on how to map from keys to array indices.  You can do that
  1076. only with arrays that have a hash reference at index 0.
  1077.  
  1078. =item Can't create pipe mailbox
  1079.  
  1080. (P) An error peculiar to VMS.  The process is suffering from exhausted quotas
  1081. or other plumbing problems.
  1082.  
  1083. =item Can't declare %s in my
  1084.  
  1085. (F) Only scalar, array, and hash variables may be declared as lexical variables.
  1086. They must have ordinary identifiers as names.
  1087.  
  1088. =item Can't do inplace edit on %s: %s
  1089.  
  1090. (S) The creation of the new file failed for the indicated reason.
  1091.  
  1092. =item Can't do inplace edit without backup
  1093.  
  1094. (F) You're on a system such as MS-DOS that gets confused if you try reading
  1095. from a deleted (but still opened) file.  You have to say C<-i.bak>, or some
  1096. such.
  1097.  
  1098. =item Can't do inplace edit: %s E<gt> 14 characters
  1099.  
  1100. (S) There isn't enough room in the filename to make a backup name for the file.
  1101.  
  1102. =item Can't do inplace edit: %s is not a regular file
  1103.  
  1104. (S) You tried to use the B<-i> switch on a special file, such as a file in
  1105. /dev, or a FIFO.  The file was ignored.
  1106.  
  1107. =item Can't do setegid!
  1108.  
  1109. (P) The setegid() call failed for some reason in the setuid emulator
  1110. of suidperl.
  1111.  
  1112. =item Can't do seteuid!
  1113.  
  1114. (P) The setuid emulator of suidperl failed for some reason.
  1115.  
  1116. =item Can't do setuid
  1117.  
  1118. (F) This typically means that ordinary perl tried to exec suidperl to
  1119. do setuid emulation, but couldn't exec it.  It looks for a name of the
  1120. form sperl5.000 in the same directory that the perl executable resides
  1121. under the name perl5.000, typically /usr/local/bin on Unix machines.
  1122. If the file is there, check the execute permissions.  If it isn't, ask
  1123. your sysadmin why he and/or she removed it.
  1124.  
  1125. =item Can't do waitpid with flags
  1126.  
  1127. (F) This machine doesn't have either waitpid() or wait4(), so only waitpid()
  1128. without flags is emulated.
  1129.  
  1130. =item Can't do {n,m} with n E<gt> m
  1131.  
  1132. (F) Minima must be less than or equal to maxima.  If you really want
  1133. your regexp to match something 0 times, just put {0}.  See L<perlre>.
  1134.  
  1135. =item Can't emulate -%s on #! line
  1136.  
  1137. (F) The #! line specifies a switch that doesn't make sense at this point.
  1138. For example, it'd be kind of silly to put a B<-x> on the #! line.
  1139.  
  1140. =item Can't exec "%s": %s
  1141.  
  1142. (W) An system(), exec(), or piped open call could not execute the named
  1143. program for the indicated reason.  Typical reasons include: the permissions
  1144. were wrong on the file, the file wasn't found in C<$ENV{PATH}>, the
  1145. executable in question was compiled for another architecture, or the
  1146. #! line in a script points to an interpreter that can't be run for
  1147. similar reasons.  (Or maybe your system doesn't support #! at all.)
  1148.  
  1149. =item Can't exec %s
  1150.  
  1151. (F) Perl was trying to execute the indicated program for you because that's
  1152. what the #! line said.  If that's not what you wanted, you may need to
  1153. mention "perl" on the #! line somewhere.
  1154.  
  1155. =item Can't execute %s
  1156.  
  1157. (F) You used the B<-S> switch, but the copies of the script to execute found
  1158. in the PATH did not have correct permissions.
  1159.  
  1160. =item Can't find %s on PATH, '.' not in PATH
  1161.  
  1162. (F) You used the B<-S> switch, but the script to execute could not be found
  1163. in the PATH, or at least not with the correct permissions.  The script
  1164. exists in the current directory, but PATH prohibits running it.
  1165.  
  1166. =item Can't find %s on PATH
  1167.  
  1168. (F) You used the B<-S> switch, but the script to execute could not be found
  1169. in the PATH.
  1170.  
  1171. =item Can't find label %s
  1172.  
  1173. (F) You said to goto a label that isn't mentioned anywhere that it's possible
  1174. for us to go to.  See L<perlfunc/goto>.
  1175.  
  1176. =item Can't find string terminator %s anywhere before EOF
  1177.  
  1178. (F) Perl strings can stretch over multiple lines.  This message means that
  1179. the closing delimiter was omitted.  Because bracketed quotes count nesting
  1180. levels, the following is missing its final parenthesis:
  1181.  
  1182.     print q(The character '(' starts a side comment.);
  1183.  
  1184. If you're getting this error from a here-document, you may have 
  1185. included unseen whitespace before or after your closing tag. A good 
  1186. programmer's editor will have a way to help you find these characters.
  1187.  
  1188. =item Can't fork
  1189.  
  1190. (F) A fatal error occurred while trying to fork while opening a pipeline.
  1191.  
  1192. =item Can't get filespec - stale stat buffer?
  1193.  
  1194. (S) A warning peculiar to VMS.  This arises because of the difference between
  1195. access checks under VMS and under the Unix model Perl assumes.  Under VMS,
  1196. access checks are done by filename, rather than by bits in the stat buffer, so
  1197. that ACLs and other protections can be taken into account.  Unfortunately, Perl
  1198. assumes that the stat buffer contains all the necessary information, and passes
  1199. it, instead of the filespec, to the access checking routine.  It will try to
  1200. retrieve the filespec using the device name and FID present in the stat buffer,
  1201. but this works only if you haven't made a subsequent call to the CRTL stat()
  1202. routine, because the device name is overwritten with each call.  If this warning
  1203. appears, the name lookup failed, and the access checking routine gave up and
  1204. returned FALSE, just to be conservative.  (Note: The access checking routine
  1205. knows about the Perl C<stat> operator and file tests, so you shouldn't ever
  1206. see this warning in response to a Perl command; it arises only if some internal
  1207. code takes stat buffers lightly.)
  1208.  
  1209. =item Can't get pipe mailbox device name
  1210.  
  1211. (P) An error peculiar to VMS.  After creating a mailbox to act as a pipe, Perl
  1212. can't retrieve its name for later use.
  1213.  
  1214. =item Can't get SYSGEN parameter value for MAXBUF
  1215.  
  1216. (P) An error peculiar to VMS.  Perl asked $GETSYI how big you want your
  1217. mailbox buffers to be, and didn't get an answer.
  1218.  
  1219. =item Can't goto subroutine outside a subroutine
  1220.  
  1221. (F) The deeply magical "goto subroutine" call can only replace one subroutine
  1222. call for another.  It can't manufacture one out of whole cloth.  In general
  1223. you should be calling it out of only an AUTOLOAD routine anyway.  See
  1224. L<perlfunc/goto>.
  1225.  
  1226. =item Can't goto subroutine from an eval-string
  1227.  
  1228. (F) The "goto subroutine" call can't be used to jump out of an eval "string".
  1229. (You can use it to jump out of an eval {BLOCK}, but you probably don't want to.)
  1230.  
  1231. =item Can't localize through a reference
  1232.  
  1233. (F) You said something like C<local $$ref>, which Perl can't currently
  1234. handle, because when it goes to restore the old value of whatever $ref
  1235. pointed to after the scope of the local() is finished, it can't be
  1236. sure that $ref will still be a reference.  
  1237.  
  1238. =item Can't localize lexical variable %s
  1239.  
  1240. (F) You used local on a variable name that was previously declared as a
  1241. lexical variable using "my".  This is not allowed.  If you want to
  1242. localize a package variable of the same name, qualify it with the
  1243. package name.
  1244.  
  1245. =item Can't localize pseudo-hash element
  1246.  
  1247. (F) You said something like C<local $ar-E<gt>{'key'}>, where $ar is
  1248. a reference to a pseudo-hash.  That hasn't been implemented yet, but
  1249. you can get a similar effect by localizing the corresponding array
  1250. element directly -- C<local $ar-E<gt>[$ar-E<gt>[0]{'key'}]>.
  1251.  
  1252. =item Can't locate auto/%s.al in @INC
  1253.  
  1254. (F) A function (or method) was called in a package which allows autoload,
  1255. but there is no function to autoload.  Most probable causes are a misprint
  1256. in a function/method name or a failure to C<AutoSplit> the file, say, by
  1257. doing C<make install>.
  1258.  
  1259. =item Can't locate %s in @INC
  1260.  
  1261. (F) You said to do (or require, or use) a file that couldn't be found
  1262. in any of the libraries mentioned in @INC.  Perhaps you need to set the
  1263. PERL5LIB or PERL5OPT environment variable to say where the extra library
  1264. is, or maybe the script needs to add the library name to @INC.  Or maybe
  1265. you just misspelled the name of the file.  See L<perlfunc/require>.
  1266.  
  1267. =item Can't locate object method "%s" via package "%s"
  1268.  
  1269. (F) You called a method correctly, and it correctly indicated a package
  1270. functioning as a class, but that package doesn't define that particular
  1271. method, nor does any of its base classes.  See L<perlobj>.
  1272.  
  1273. =item Can't locate package %s for @%s::ISA
  1274.  
  1275. (W) The @ISA array contained the name of another package that doesn't seem
  1276. to exist.
  1277.  
  1278. =item Can't make list assignment to \%ENV on this system
  1279.  
  1280. (F) List assignment to %ENV is not supported on some systems, notably VMS.
  1281.  
  1282. =item Can't modify %s in %s
  1283.  
  1284. (F) You aren't allowed to assign to the item indicated, or otherwise try to
  1285. change it, such as with an auto-increment.
  1286.  
  1287. =item Can't modify nonexistent substring
  1288.  
  1289. (P) The internal routine that does assignment to a substr() was handed
  1290. a NULL.
  1291.  
  1292. =item Can't msgrcv to read-only var
  1293.  
  1294. (F) The target of a msgrcv must be modifiable to be used as a receive
  1295. buffer.
  1296.  
  1297. =item Can't open %s: %s
  1298.  
  1299. (S) The implicit opening of a file through use of the C<E<lt>E<gt>>
  1300. filehandle, either implicitly under the C<-n> or C<-p> command-line
  1301. switches, or explicitly, failed for the indicated reason.  Usually this
  1302. is because you don't have read permission for a file which you named
  1303. on the command line.
  1304.  
  1305. =item Can't open bidirectional pipe
  1306.  
  1307. (W) You tried to say C<open(CMD, "|cmd|")>, which is not supported.  You can
  1308. try any of several modules in the Perl library to do this, such as
  1309. IPC::Open2.  Alternately, direct the pipe's output to a file using "E<gt>",
  1310. and then read it in under a different file handle.
  1311.  
  1312. =item Can't open error file %s as stderr
  1313.  
  1314. (F) An error peculiar to VMS.  Perl does its own command line redirection, and
  1315. couldn't open the file specified after '2E<gt>' or '2E<gt>E<gt>' on the
  1316. command line for writing.
  1317.  
  1318. =item Can't open input file %s as stdin
  1319.  
  1320. (F) An error peculiar to VMS.  Perl does its own command line redirection, and
  1321. couldn't open the file specified after 'E<lt>' on the command line for reading.
  1322.  
  1323. =item Can't open output file %s as stdout
  1324.  
  1325. (F) An error peculiar to VMS.  Perl does its own command line redirection, and
  1326. couldn't open the file specified after 'E<gt>' or 'E<gt>E<gt>' on the command
  1327. line for writing.
  1328.  
  1329. =item Can't open output pipe (name: %s)
  1330.  
  1331. (P) An error peculiar to VMS.  Perl does its own command line redirection, and
  1332. couldn't open the pipe into which to send data destined for stdout.
  1333.  
  1334. =item Can't open perl script "%s": %s
  1335.  
  1336. (F) The script you specified can't be opened for the indicated reason.
  1337.  
  1338. =item Can't redefine active sort subroutine %s
  1339.  
  1340. (F) Perl optimizes the internal handling of sort subroutines and keeps
  1341. pointers into them.  You tried to redefine one such sort subroutine when it
  1342. was currently active, which is not allowed.  If you really want to do
  1343. this, you should write C<sort { &func } @x> instead of C<sort func @x>.
  1344.  
  1345. =item Can't rename %s to %s: %s, skipping file
  1346.  
  1347. (S) The rename done by the B<-i> switch failed for some reason, probably because
  1348. you don't have write permission to the directory.
  1349.  
  1350. =item Can't reopen input pipe (name: %s) in binary mode
  1351.  
  1352. (P) An error peculiar to VMS.  Perl thought stdin was a pipe, and tried to
  1353. reopen it to accept binary data.  Alas, it failed.
  1354.  
  1355. =item Can't reswap uid and euid
  1356.  
  1357. (P) The setreuid() call failed for some reason in the setuid emulator
  1358. of suidperl.
  1359.  
  1360. =item Can't return outside a subroutine
  1361.  
  1362. (F) The return statement was executed in mainline code, that is, where
  1363. there was no subroutine call to return out of.  See L<perlsub>.
  1364.  
  1365. =item Can't stat script "%s"
  1366.  
  1367. (P) For some reason you can't fstat() the script even though you have
  1368. it open already.  Bizarre.
  1369.  
  1370. =item Can't swap uid and euid
  1371.  
  1372. (P) The setreuid() call failed for some reason in the setuid emulator
  1373. of suidperl.
  1374.  
  1375. =item Can't take log of %g
  1376.  
  1377. (F) For ordinary real numbers, you can't take the logarithm of a
  1378. negative number or zero. There's a Math::Complex package that comes
  1379. standard with Perl, though, if you really want to do that for
  1380. the negative numbers.
  1381.  
  1382. =item Can't take sqrt of %g
  1383.  
  1384. (F) For ordinary real numbers, you can't take the square root of a
  1385. negative number.  There's a Math::Complex package that comes standard
  1386. with Perl, though, if you really want to do that.
  1387.  
  1388. =item Can't undef active subroutine
  1389.  
  1390. (F) You can't undefine a routine that's currently running.  You can,
  1391. however, redefine it while it's running, and you can even undef the
  1392. redefined subroutine while the old routine is running.  Go figure.
  1393.  
  1394. =item Can't unshift
  1395.  
  1396. (F) You tried to unshift an "unreal" array that can't be unshifted, such
  1397. as the main Perl stack.
  1398.  
  1399. =item Can't upgrade that kind of scalar
  1400.  
  1401. (P) The internal sv_upgrade routine adds "members" to an SV, making
  1402. it into a more specialized kind of SV.  The top several SV types are
  1403. so specialized, however, that they cannot be interconverted.  This
  1404. message indicates that such a conversion was attempted.
  1405.  
  1406. =item Can't upgrade to undef
  1407.  
  1408. (P) The undefined SV is the bottom of the totem pole, in the scheme
  1409. of upgradability.  Upgrading to undef indicates an error in the
  1410. code calling sv_upgrade.
  1411.  
  1412. =item Can't use %%! because Errno.pm is not available
  1413.  
  1414. (F) The first time the %! hash is used, perl automatically loads the
  1415. Errno.pm module. The Errno module is expected to tie the %! hash to
  1416. provide symbolic names for C<$!> errno values.
  1417.  
  1418. =item Can't use "my %s" in sort comparison
  1419.  
  1420. (F) The global variables $a and $b are reserved for sort comparisons.
  1421. You mentioned $a or $b in the same line as the E<lt>=E<gt> or cmp operator,
  1422. and the variable had earlier been declared as a lexical variable.
  1423. Either qualify the sort variable with the package name, or rename the
  1424. lexical variable.
  1425.  
  1426. =item Can't use %s for loop variable
  1427.  
  1428. (F) Only a simple scalar variable may be used as a loop variable on a foreach.
  1429.  
  1430. =item Can't use %s ref as %s ref
  1431.  
  1432. (F) You've mixed up your reference types.  You have to dereference a
  1433. reference of the type needed.  You can use the ref() function to
  1434. test the type of the reference, if need be.
  1435.  
  1436. =item Can't use \1 to mean $1 in expression
  1437.  
  1438. (W) In an ordinary expression, backslash is a unary operator that creates
  1439. a reference to its argument.  The use of backslash to indicate a backreference
  1440. to a matched substring is valid only as part of a regular expression pattern.
  1441. Trying to do this in ordinary Perl code produces a value that prints
  1442. out looking like SCALAR(0xdecaf).  Use the $1 form instead.
  1443.  
  1444. =item Can't use bareword ("%s") as %s ref while \"strict refs\" in use
  1445.  
  1446. (F) Only hard references are allowed by "strict refs".  Symbolic references
  1447. are disallowed.  See L<perlref>.
  1448.  
  1449. =item Can't use string ("%s") as %s ref while "strict refs" in use
  1450.  
  1451. (F) Only hard references are allowed by "strict refs".  Symbolic references
  1452. are disallowed.  See L<perlref>.
  1453.  
  1454. =item Can't use an undefined value as %s reference
  1455.  
  1456. (F) A value used as either a hard reference or a symbolic reference must
  1457. be a defined value.  This helps to delurk some insidious errors.
  1458.  
  1459. =item Can't use global %s in "my"
  1460.  
  1461. (F) You tried to declare a magical variable as a lexical variable.  This is
  1462. not allowed, because the magic can be tied to only one location (namely
  1463. the global variable) and it would be incredibly confusing to have
  1464. variables in your program that looked like magical variables but
  1465. weren't.
  1466.  
  1467. =item Can't use subscript on %s
  1468.  
  1469. (F) The compiler tried to interpret a bracketed expression as a
  1470. subscript.  But to the left of the brackets was an expression that
  1471. didn't look like an array reference, or anything else subscriptable.
  1472.  
  1473. =item Can't x= to read-only value
  1474.  
  1475. (F) You tried to repeat a constant value (often the undefined value) with
  1476. an assignment operator, which implies modifying the value itself.
  1477. Perhaps you need to copy the value to a temporary, and repeat that.
  1478.  
  1479. =item Cannot find an opnumber for "%s"
  1480.  
  1481. (F) A string of a form C<CORE::word> was given to prototype(), but
  1482. there is no builtin with the name C<word>.
  1483.  
  1484. =item Cannot resolve method `%s' overloading `%s' in package `%s'
  1485.  
  1486. (F|P) Error resolving overloading specified by a method name (as
  1487. opposed to a subroutine reference): no such method callable via the
  1488. package. If method name is C<???>, this is an internal error.
  1489.  
  1490. =item Character class syntax [. .] is reserved for future extensions
  1491.  
  1492. (W) Within regular expression character classes ([]) the syntax beginning
  1493. with "[." and ending with ".]" is reserved for future extensions.
  1494. If you need to represent those character sequences inside a regular
  1495. expression character class, just quote the square brackets with the
  1496. backslash: "\[." and ".\]".
  1497.  
  1498. =item Character class syntax [: :] is reserved for future extensions
  1499.  
  1500. (W) Within regular expression character classes ([]) the syntax beginning
  1501. with "[:" and ending with ":]" is reserved for future extensions.
  1502. If you need to represent those character sequences inside a regular
  1503. expression character class, just quote the square brackets with the
  1504. backslash: "\[:" and ":\]".
  1505.  
  1506. =item Character class syntax [= =] is reserved for future extensions
  1507.  
  1508. (W) Within regular expression character classes ([]) the syntax
  1509. beginning with "[=" and ending with "=]" is reserved for future extensions.
  1510. If you need to represent those character sequences inside a regular
  1511. expression character class, just quote the square brackets with the
  1512. backslash: "\[=" and "=\]".
  1513.  
  1514. =item chmod: mode argument is missing initial 0
  1515.  
  1516. (W) A novice will sometimes say
  1517.  
  1518.     chmod 777, $filename
  1519.  
  1520. not realizing that 777 will be interpreted as a decimal number, equivalent
  1521. to 01411.  Octal constants are introduced with a leading 0 in Perl, as in C.
  1522.  
  1523. =item Close on unopened file E<lt>%sE<gt>
  1524.  
  1525. (W) You tried to close a filehandle that was never opened.
  1526.  
  1527. =item Compilation failed in require
  1528.  
  1529. (F) Perl could not compile a file specified in a C<require> statement.
  1530. Perl uses this generic message when none of the errors that it encountered
  1531. were severe enough to halt compilation immediately.
  1532.  
  1533. =item Complex regular subexpression recursion limit (%d) exceeded
  1534.  
  1535. (W) The regular expression engine uses recursion in complex situations
  1536. where back-tracking is required.  Recursion depth is limited to 32766,
  1537. or perhaps less in architectures where the stack cannot grow
  1538. arbitrarily.  ("Simple" and "medium" situations are handled without
  1539. recursion and are not subject to a limit.)  Try shortening the string
  1540. under examination; looping in Perl code (e.g. with C<while>) rather
  1541. than in the regular expression engine; or rewriting the regular
  1542. expression so that it is simpler or backtracks less.  (See L<perlbook>
  1543. for information on I<Mastering Regular Expressions>.)
  1544.  
  1545. =item connect() on closed fd
  1546.  
  1547. (W) You tried to do a connect on a closed socket.  Did you forget to check
  1548. the return value of your socket() call?  See L<perlfunc/connect>.
  1549.  
  1550. =item Constant is not %s reference
  1551.  
  1552. (F) A constant value (perhaps declared using the C<use constant> pragma)
  1553. is being dereferenced, but it amounts to the wrong type of reference.  The
  1554. message indicates the type of reference that was expected. This usually
  1555. indicates a syntax error in dereferencing the constant value.
  1556. See L<perlsub/"Constant Functions"> and L<constant>.
  1557.  
  1558. =item Constant subroutine %s redefined
  1559.  
  1560. (S) You redefined a subroutine which had previously been eligible for
  1561. inlining.  See L<perlsub/"Constant Functions"> for commentary and
  1562. workarounds.
  1563.  
  1564. =item Constant subroutine %s undefined
  1565.  
  1566. (S) You undefined a subroutine which had previously been eligible for
  1567. inlining.  See L<perlsub/"Constant Functions"> for commentary and
  1568. workarounds.
  1569.  
  1570. =item Copy method did not return a reference
  1571.  
  1572. (F) The method which overloads "=" is buggy. See L<overload/Copy Constructor>.
  1573.  
  1574. =item Corrupt malloc ptr 0x%lx at 0x%lx
  1575.  
  1576. (P) The malloc package that comes with Perl had an internal failure.
  1577.  
  1578. =item corrupted regexp pointers
  1579.  
  1580. (P) The regular expression engine got confused by what the regular
  1581. expression compiler gave it.
  1582.  
  1583. =item corrupted regexp program
  1584.  
  1585. (P) The regular expression engine got passed a regexp program without
  1586. a valid magic number.
  1587.  
  1588. =item Deep recursion on subroutine "%s"
  1589.  
  1590. (W) This subroutine has called itself (directly or indirectly) 100
  1591. times more than it has returned.  This probably indicates an infinite
  1592. recursion, unless you're writing strange benchmark programs, in which
  1593. case it indicates something else.
  1594.  
  1595. =item Delimiter for here document is too long
  1596.  
  1597. (F) In a here document construct like C<E<lt>E<lt>FOO>, the label
  1598. C<FOO> is too long for Perl to handle.  You have to be seriously
  1599. twisted to write code that triggers this error.
  1600.  
  1601. =item Did you mean &%s instead?
  1602.  
  1603. (W) You probably referred to an imported subroutine &FOO as $FOO or some such.
  1604.  
  1605. =item Did you mean $ or @ instead of %?
  1606.  
  1607. (W) You probably said %hash{$key} when you meant $hash{$key} or @hash{@keys}.
  1608. On the other hand, maybe you just meant %hash and got carried away.
  1609.  
  1610. =item Died
  1611.  
  1612. (F) You passed die() an empty string (the equivalent of C<die "">) or
  1613. you called it with no args and both C<$@> and C<$_> were empty.
  1614.  
  1615. =item Do you need to predeclare %s?
  1616.  
  1617. (S) This is an educated guess made in conjunction with the message "%s
  1618. found where operator expected".  It often means a subroutine or module
  1619. name is being referenced that hasn't been declared yet.  This may be
  1620. because of ordering problems in your file, or because of a missing
  1621. "sub", "package", "require", or "use" statement.  If you're
  1622. referencing something that isn't defined yet, you don't actually have
  1623. to define the subroutine or package before the current location.  You
  1624. can use an empty "sub foo;" or "package FOO;" to enter a "forward"
  1625. declaration.
  1626.  
  1627. =item Don't know how to handle magic of type '%s'
  1628.  
  1629. (P) The internal handling of magical variables has been cursed.
  1630.  
  1631. =item do_study: out of memory
  1632.  
  1633. (P) This should have been caught by safemalloc() instead.
  1634.  
  1635. =item Duplicate free() ignored
  1636.  
  1637. (S) An internal routine called free() on something that had already
  1638. been freed.
  1639.  
  1640. =item elseif should be elsif
  1641.  
  1642. (S) There is no keyword "elseif" in Perl because Larry thinks it's
  1643. ugly.  Your code will be interpreted as an attempt to call a method
  1644. named "elseif" for the class returned by the following block.  This is
  1645. unlikely to be what you want.
  1646.  
  1647. =item END failed--cleanup aborted
  1648.  
  1649. (F) An untrapped exception was raised while executing an END subroutine.
  1650. The interpreter is immediately exited.
  1651.  
  1652. =item Error converting file specification %s
  1653.  
  1654. (F) An error peculiar to VMS.  Because Perl may have to deal with file
  1655. specifications in either VMS or Unix syntax, it converts them to a
  1656. single form when it must operate on them directly.  Either you've
  1657. passed an invalid file specification to Perl, or you've found a
  1658. case the conversion routines don't handle.  Drat.
  1659.  
  1660. =item %s: Eval-group in insecure regular expression
  1661.  
  1662. (F) Perl detected tainted data when trying to compile a regular expression
  1663. that contains the C<(?{ ... })> zero-width assertion, which is unsafe.
  1664. See L<perlre/(?{ code })>, and L<perlsec>.
  1665.  
  1666. =item %s: Eval-group not allowed, use re 'eval'
  1667.  
  1668. (F) A regular expression contained the C<(?{ ... })> zero-width assertion,
  1669. but that construct is only allowed when the C<use re 'eval'> pragma is
  1670. in effect.  See L<perlre/(?{ code })>.
  1671.  
  1672. =item %s: Eval-group not allowed at run time
  1673.  
  1674. (F) Perl tried to compile a regular expression containing the C<(?{ ... })>
  1675. zero-width assertion at run time, as it would when the pattern contains
  1676. interpolated values.  Since that is a security risk, it is not allowed.
  1677. If you insist, you may still do this by explicitly building the pattern
  1678. from an interpolated string at run time and using that in an eval().
  1679. See L<perlre/(?{ code })>.
  1680.  
  1681. =item Excessively long <> operator
  1682.  
  1683. (F) The contents of a <> operator may not exceed the maximum size of a
  1684. Perl identifier.  If you're just trying to glob a long list of
  1685. filenames, try using the glob() operator, or put the filenames into a
  1686. variable and glob that.
  1687.  
  1688. =item Execution of %s aborted due to compilation errors
  1689.  
  1690. (F) The final summary message when a Perl compilation fails.
  1691.  
  1692. =item Exiting eval via %s
  1693.  
  1694. (W) You are exiting an eval by unconventional means, such as
  1695. a goto, or a loop control statement.
  1696.  
  1697. =item Exiting pseudo-block via %s
  1698.  
  1699. (W) You are exiting a rather special block construct (like a sort block or
  1700. subroutine) by unconventional means, such as a goto, or a loop control
  1701. statement.  See L<perlfunc/sort>.
  1702.  
  1703. =item Exiting subroutine via %s
  1704.  
  1705. (W) You are exiting a subroutine by unconventional means, such as
  1706. a goto, or a loop control statement.
  1707.  
  1708. =item Exiting substitution via %s
  1709.  
  1710. (W) You are exiting a substitution by unconventional means, such as
  1711. a return, a goto, or a loop control statement.
  1712.  
  1713. =item Explicit blessing to '' (assuming package main)
  1714.  
  1715. (W) You are blessing a reference to a zero length string.  This has
  1716. the effect of blessing the reference into the package main.  This is
  1717. usually not what you want.  Consider providing a default target
  1718. package, e.g. bless($ref, $p || 'MyPackage');
  1719.  
  1720. =item Fatal VMS error at %s, line %d
  1721.  
  1722. (P) An error peculiar to VMS.  Something untoward happened in a VMS system
  1723. service or RTL routine; Perl's exit status should provide more details.  The
  1724. filename in "at %s" and the line number in "line %d" tell you which section of
  1725. the Perl source code is distressed.
  1726.  
  1727. =item fcntl is not implemented
  1728.  
  1729. (F) Your machine apparently doesn't implement fcntl().  What is this, a
  1730. PDP-11 or something?
  1731.  
  1732. =item Filehandle %s never opened
  1733.  
  1734. (W) An I/O operation was attempted on a filehandle that was never initialized.
  1735. You need to do an open() or a socket() call, or call a constructor from
  1736. the FileHandle package.
  1737.  
  1738. =item Filehandle %s opened for only input
  1739.  
  1740. (W) You tried to write on a read-only filehandle.  If you
  1741. intended it to be a read-write filehandle, you needed to open it with
  1742. "+E<lt>" or "+E<gt>" or "+E<gt>E<gt>" instead of with "E<lt>" or nothing.  If
  1743. you intended only to write the file, use "E<gt>" or "E<gt>E<gt>".  See
  1744. L<perlfunc/open>.
  1745.  
  1746. =item Filehandle opened for only input
  1747.  
  1748. (W) You tried to write on a read-only filehandle.  If you
  1749. intended it to be a read-write filehandle, you needed to open it with
  1750. "+E<lt>" or "+E<gt>" or "+E<gt>E<gt>" instead of with "E<lt>" or nothing.  If
  1751. you intended only to write the file, use "E<gt>" or "E<gt>E<gt>".  See
  1752. L<perlfunc/open>.
  1753.  
  1754. =item Final $ should be \$ or $name
  1755.  
  1756. (F) You must now decide whether the final $ in a string was meant to be
  1757. a literal dollar sign, or was meant to introduce a variable name
  1758. that happens to be missing.  So you have to put either the backslash or
  1759. the name.
  1760.  
  1761. =item Final @ should be \@ or @name
  1762.  
  1763. (F) You must now decide whether the final @ in a string was meant to be
  1764. a literal "at" sign, or was meant to introduce a variable name
  1765. that happens to be missing.  So you have to put either the backslash or
  1766. the name.
  1767.  
  1768. =item Format %s redefined
  1769.  
  1770. (W) You redefined a format.  To suppress this warning, say
  1771.  
  1772.     {
  1773.     local $^W = 0;
  1774.     eval "format NAME =...";
  1775.     }
  1776.  
  1777. =item Format not terminated
  1778.  
  1779. (F) A format must be terminated by a line with a solitary dot.  Perl got
  1780. to the end of your file without finding such a line.
  1781.  
  1782. =item Found = in conditional, should be ==
  1783.  
  1784. (W) You said
  1785.  
  1786.     if ($foo = 123)
  1787.  
  1788. when you meant
  1789.  
  1790.     if ($foo == 123)
  1791.  
  1792. (or something like that).
  1793.  
  1794. =item gdbm store returned %d, errno %d, key "%s"
  1795.  
  1796. (S) A warning from the GDBM_File extension that a store failed.
  1797.  
  1798. =item gethostent not implemented
  1799.  
  1800. (F) Your C library apparently doesn't implement gethostent(), probably
  1801. because if it did, it'd feel morally obligated to return every hostname
  1802. on the Internet.
  1803.  
  1804. =item get{sock,peer}name() on closed fd
  1805.  
  1806. (W) You tried to get a socket or peer socket name on a closed socket.
  1807. Did you forget to check the return value of your socket() call?
  1808.  
  1809. =item getpwnam returned invalid UIC %#o for user "%s"
  1810.  
  1811. (S) A warning peculiar to VMS.  The call to C<sys$getuai> underlying the
  1812. C<getpwnam> operator returned an invalid UIC.
  1813.  
  1814. =item Glob not terminated
  1815.  
  1816. (F) The lexer saw a left angle bracket in a place where it was expecting
  1817. a term, so it's looking for the corresponding right angle bracket, and not
  1818. finding it.  Chances are you left some needed parentheses out earlier in
  1819. the line, and you really meant a "less than".
  1820.  
  1821. =item Global symbol "%s" requires explicit package name
  1822.  
  1823. (F) You've said "use strict vars", which indicates that all variables
  1824. must either be lexically scoped (using "my"), or explicitly qualified to
  1825. say which package the global variable is in (using "::").
  1826.  
  1827. =item goto must have label
  1828.  
  1829. (F) Unlike with "next" or "last", you're not allowed to goto an
  1830. unspecified destination.  See L<perlfunc/goto>.
  1831.  
  1832. =item Had to create %s unexpectedly
  1833.  
  1834. (S) A routine asked for a symbol from a symbol table that ought to have
  1835. existed already, but for some reason it didn't, and had to be created on
  1836. an emergency basis to prevent a core dump.
  1837.  
  1838. =item Hash %%s missing the % in argument %d of %s()
  1839.  
  1840. (D) Really old Perl let you omit the % on hash names in some spots.  This
  1841. is now heavily deprecated.
  1842.  
  1843. =item Identifier too long
  1844.  
  1845. (F) Perl limits identifiers (names for variables, functions, etc.) to
  1846. about 250 characters for simple names, and somewhat more for compound
  1847. names (like C<$A::B>).  You've exceeded Perl's limits.  Future
  1848. versions of Perl are likely to eliminate these arbitrary limitations.
  1849.  
  1850. =item Ill-formed logical name |%s| in prime_env_iter
  1851.  
  1852. (W) A warning peculiar to VMS.  A logical name was encountered when preparing
  1853. to iterate over %ENV which violates the syntactic rules governing logical
  1854. names.  Because it cannot be translated normally, it is skipped, and will not
  1855. appear in %ENV.  This may be a benign occurrence, as some software packages
  1856. might directly modify logical name tables and introduce nonstandard names,
  1857. or it may indicate that a logical name table has been corrupted.
  1858.  
  1859. =item Illegal character %s (carriage return)
  1860.  
  1861. (F) A carriage return character was found in the input.  This is an
  1862. error, and not a warning, because carriage return characters can break
  1863. multi-line strings, including here documents (e.g., C<print E<lt>E<lt>EOF;>).
  1864.  
  1865. Under Unix, this error is usually caused by executing Perl code --
  1866. either the main program, a module, or an eval'd string -- that was
  1867. transferred over a network connection from a non-Unix system without
  1868. properly converting the text file format.
  1869.  
  1870. Under systems that use something other than '\n' to delimit lines of
  1871. text, this error can also be caused by reading Perl code from a file
  1872. handle that is in binary mode (as set by the C<binmode> operator).
  1873.  
  1874. In either case, the Perl code in question will probably need to be
  1875. converted with something like C<s/\x0D\x0A?/\n/g> before it can be
  1876. executed.
  1877.  
  1878. =item Illegal division by zero
  1879.  
  1880. (F) You tried to divide a number by 0.  Either something was wrong in your
  1881. logic, or you need to put a conditional in to guard against meaningless input.
  1882.  
  1883. =item Illegal modulus zero
  1884.  
  1885. (F) You tried to divide a number by 0 to get the remainder.  Most numbers
  1886. don't take to this kindly.
  1887.  
  1888. =item Illegal octal digit
  1889.  
  1890. (F) You used an 8 or 9 in a octal number.
  1891.  
  1892. =item Illegal octal digit ignored
  1893.  
  1894. (W) You may have tried to use an 8 or 9 in a octal number.  Interpretation
  1895. of the octal number stopped before the 8 or 9.
  1896.  
  1897. =item Illegal hex digit ignored
  1898.  
  1899. (W) You may have tried to use a character other than 0 - 9 or A - F in a
  1900. hexadecimal number.  Interpretation of the hexadecimal number stopped
  1901. before the illegal character.
  1902.  
  1903. =item Illegal switch in PERL5OPT: %s
  1904.  
  1905. (X) The PERL5OPT environment variable may only be used to set the
  1906. following switches: B<-[DIMUdmw]>.
  1907.  
  1908. =item In string, @%s now must be written as \@%s
  1909.  
  1910. (F) It used to be that Perl would try to guess whether you wanted an
  1911. array interpolated or a literal @.  It did this when the string was first
  1912. used at runtime.  Now strings are parsed at compile time, and ambiguous
  1913. instances of @ must be disambiguated, either by prepending a backslash to
  1914. indicate a literal, or by declaring (or using) the array within the
  1915. program before the string (lexically).  (Someday it will simply assume
  1916. that an unbackslashed @ interpolates an array.)
  1917.  
  1918. =item Insecure dependency in %s
  1919.  
  1920. (F) You tried to do something that the tainting mechanism didn't like.
  1921. The tainting mechanism is turned on when you're running setuid or setgid,
  1922. or when you specify B<-T> to turn it on explicitly.  The tainting mechanism
  1923. labels all data that's derived directly or indirectly from the user,
  1924. who is considered to be unworthy of your trust.  If any such data is
  1925. used in a "dangerous" operation, you get this error.  See L<perlsec>
  1926. for more information.
  1927.  
  1928. =item Insecure directory in %s
  1929.  
  1930. (F) You can't use system(), exec(), or a piped open in a setuid or setgid
  1931. script if C<$ENV{PATH}> contains a directory that is writable by the world.
  1932. See L<perlsec>.
  1933.  
  1934. =item Insecure $ENV{%s} while running %s
  1935.  
  1936. (F) You can't use system(), exec(), or a piped open in a setuid or
  1937. setgid script if any of C<$ENV{PATH}>, C<$ENV{IFS}>, C<$ENV{CDPATH}>,
  1938. C<$ENV{ENV}> or C<$ENV{BASH_ENV}> are derived from data supplied (or
  1939. potentially supplied) by the user.  The script must set the path to a
  1940. known value, using trustworthy data.  See L<perlsec>.
  1941.  
  1942. =item Integer overflow in hex number
  1943.  
  1944. (S) The literal hex number you have specified is too big for your
  1945. architecture. On a 32-bit architecture the largest hex literal is
  1946. 0xFFFFFFFF.
  1947.  
  1948. =item Integer overflow in octal number
  1949.  
  1950. (S) The literal octal number you have specified is too big for your
  1951. architecture. On a 32-bit architecture the largest octal literal is
  1952. 037777777777.
  1953.  
  1954. =item Internal inconsistency in tracking vforks
  1955.  
  1956. (S) A warning peculiar to VMS.  Perl keeps track of the number
  1957. of times you've called C<fork> and C<exec>, to determine
  1958. whether the current call to C<exec> should affect the current
  1959. script or a subprocess (see L<perlvms/"exec LIST">).  Somehow, this count
  1960. has become scrambled, so Perl is making a guess and treating
  1961. this C<exec> as a request to terminate the Perl script
  1962. and execute the specified command.
  1963.  
  1964. =item internal disaster in regexp
  1965.  
  1966. (P) Something went badly wrong in the regular expression parser.
  1967.  
  1968. =item glob failed (%s)
  1969.  
  1970. (W) Something went wrong with the external program(s) used for C<glob>
  1971. and C<E<lt>*.cE<gt>>.  Usually, this means that you supplied a C<glob>
  1972. pattern that caused the external program to fail and exit with a nonzero
  1973. status.  If the message indicates that the abnormal exit resulted in a
  1974. coredump, this may also mean that your csh (C shell) is broken.  If so,
  1975. you should change all of the csh-related variables in config.sh:  If you
  1976. have tcsh, make the variables refer to it as if it were csh (e.g.
  1977. C<full_csh='/usr/bin/tcsh'>); otherwise, make them all empty (except that
  1978. C<d_csh> should be C<'undef'>) so that Perl will think csh is missing.
  1979. In either case, after editing config.sh, run C<./Configure -S> and
  1980. rebuild Perl.
  1981.  
  1982. =item internal urp in regexp at /%s/
  1983.  
  1984. (P) Something went badly awry in the regular expression parser.
  1985.  
  1986. =item invalid [] range in regexp
  1987.  
  1988. (F) The range specified in a character class had a minimum character
  1989. greater than the maximum character.  See L<perlre>.
  1990.  
  1991. =item Invalid conversion in %s: "%s"
  1992.  
  1993. (W) Perl does not understand the given format conversion.
  1994. See L<perlfunc/sprintf>.
  1995.  
  1996. =item Invalid type in pack: '%s'
  1997.  
  1998. (F) The given character is not a valid pack type.  See L<perlfunc/pack>.
  1999. (W) The given character is not a valid pack type but used to be silently
  2000. ignored.
  2001.  
  2002. =item Invalid type in unpack: '%s'
  2003.  
  2004. (F) The given character is not a valid unpack type.  See L<perlfunc/unpack>.
  2005. (W) The given character is not a valid unpack type but used to be silently
  2006. ignored.
  2007.  
  2008. =item ioctl is not implemented
  2009.  
  2010. (F) Your machine apparently doesn't implement ioctl(), which is pretty
  2011. strange for a machine that supports C.
  2012.  
  2013. =item junk on end of regexp
  2014.  
  2015. (P) The regular expression parser is confused.
  2016.  
  2017. =item Label not found for "last %s"
  2018.  
  2019. (F) You named a loop to break out of, but you're not currently in a
  2020. loop of that name, not even if you count where you were called from.
  2021. See L<perlfunc/last>.
  2022.  
  2023. =item Label not found for "next %s"
  2024.  
  2025. (F) You named a loop to continue, but you're not currently in a loop of
  2026. that name, not even if you count where you were called from.  See
  2027. L<perlfunc/last>.
  2028.  
  2029. =item Label not found for "redo %s"
  2030.  
  2031. (F) You named a loop to restart, but you're not currently in a loop of
  2032. that name, not even if you count where you were called from.  See
  2033. L<perlfunc/last>.
  2034.  
  2035. =item listen() on closed fd
  2036.  
  2037. (W) You tried to do a listen on a closed socket.  Did you forget to check
  2038. the return value of your socket() call?  See L<perlfunc/listen>.
  2039.  
  2040. =item Method for operation %s not found in package %s during blessing
  2041.  
  2042. (F) An attempt was made to specify an entry in an overloading table that
  2043. doesn't resolve to a valid subroutine.  See L<overload>.
  2044.  
  2045. =item Might be a runaway multi-line %s string starting on line %d
  2046.  
  2047. (S) An advisory indicating that the previous error may have been caused
  2048. by a missing delimiter on a string or pattern, because it eventually
  2049. ended earlier on the current line.
  2050.  
  2051. =item Misplaced _ in number
  2052.  
  2053. (W) An underline in a decimal constant wasn't on a 3-digit boundary.
  2054.  
  2055. =item Missing $ on loop variable
  2056.  
  2057. (F) Apparently you've been programming in B<csh> too much.  Variables are always
  2058. mentioned with the $ in Perl, unlike in the shells, where it can vary from
  2059. one line to the next.
  2060.  
  2061. =item Missing comma after first argument to %s function
  2062.  
  2063. (F) While certain functions allow you to specify a filehandle or an
  2064. "indirect object" before the argument list, this ain't one of them.
  2065.  
  2066. =item Missing operator before %s?
  2067.  
  2068. (S) This is an educated guess made in conjunction with the message "%s
  2069. found where operator expected".  Often the missing operator is a comma.
  2070.  
  2071. =item Missing right bracket
  2072.  
  2073. (F) The lexer counted more opening curly brackets (braces) than closing ones.
  2074. As a general rule, you'll find it's missing near the place you were last
  2075. editing.
  2076.  
  2077. =item Modification of a read-only value attempted
  2078.  
  2079. (F) You tried, directly or indirectly, to change the value of a
  2080. constant.  You didn't, of course, try "2 = 1", because the compiler
  2081. catches that.  But an easy way to do the same thing is:
  2082.  
  2083.     sub mod { $_[0] = 1 }
  2084.     mod(2);
  2085.  
  2086. Another way is to assign to a substr() that's off the end of the string.
  2087.  
  2088. =item Modification of non-creatable array value attempted, subscript %d
  2089.  
  2090. (F) You tried to make an array value spring into existence, and the
  2091. subscript was probably negative, even counting from end of the array
  2092. backwards.
  2093.  
  2094. =item Modification of non-creatable hash value attempted, subscript "%s"
  2095.  
  2096. (P) You tried to make a hash value spring into existence, and it couldn't
  2097. be created for some peculiar reason.
  2098.  
  2099. =item Module name must be constant
  2100.  
  2101. (F) Only a bare module name is allowed as the first argument to a "use".
  2102.  
  2103. =item msg%s not implemented
  2104.  
  2105. (F) You don't have System V message IPC on your system.
  2106.  
  2107. =item Multidimensional syntax %s not supported
  2108.  
  2109. (W) Multidimensional arrays aren't written like C<$foo[1,2,3]>.  They're written
  2110. like C<$foo[1][2][3]>, as in C.
  2111.  
  2112. =item Name "%s::%s" used only once: possible typo
  2113.  
  2114. (W) Typographical errors often show up as unique variable names.
  2115. If you had a good reason for having a unique name, then just mention
  2116. it again somehow to suppress the message.  The C<use vars> pragma is
  2117. provided for just this purpose.
  2118.  
  2119. =item Negative length
  2120.  
  2121. (F) You tried to do a read/write/send/recv operation with a buffer length
  2122. that is less than 0.  This is difficult to imagine.
  2123.  
  2124. =item nested *?+ in regexp
  2125.  
  2126. (F) You can't quantify a quantifier without intervening parentheses.  So
  2127. things like ** or +* or ?* are illegal.
  2128.  
  2129. Note, however, that the minimal matching quantifiers, C<*?>, C<+?>, and C<??> appear
  2130. to be nested quantifiers, but aren't.  See L<perlre>.
  2131.  
  2132. =item No #! line
  2133.  
  2134. (F) The setuid emulator requires that scripts have a well-formed #! line
  2135. even on machines that don't support the #! construct.
  2136.  
  2137. =item No %s allowed while running setuid
  2138.  
  2139. (F) Certain operations are deemed to be too insecure for a setuid or setgid
  2140. script to even be allowed to attempt.  Generally speaking there will be
  2141. another way to do what you want that is, if not secure, at least securable.
  2142. See L<perlsec>.
  2143.  
  2144. =item No B<-e> allowed in setuid scripts
  2145.  
  2146. (F) A setuid script can't be specified by the user.
  2147.  
  2148. =item No comma allowed after %s
  2149.  
  2150. (F) A list operator that has a filehandle or "indirect object" is not
  2151. allowed to have a comma between that and the following arguments.
  2152. Otherwise it'd be just another one of the arguments.
  2153.  
  2154. One possible cause for this is that you expected to have imported a
  2155. constant to your name space with B<use> or B<import> while no such
  2156. importing took place, it may for example be that your operating system
  2157. does not support that particular constant. Hopefully you did use an
  2158. explicit import list for the constants you expect to see, please see
  2159. L<perlfunc/use> and L<perlfunc/import>. While an explicit import list
  2160. would probably have caught this error earlier it naturally does not
  2161. remedy the fact that your operating system still does not support that
  2162. constant. Maybe you have a typo in the constants of the symbol import
  2163. list of B<use> or B<import> or in the constant name at the line where
  2164. this error was triggered?
  2165.  
  2166. =item No command into which to pipe on command line
  2167.  
  2168. (F) An error peculiar to VMS.  Perl handles its own command line redirection,
  2169. and found a '|' at the end of the command line, so it doesn't know where you
  2170. want to pipe the output from this command.
  2171.  
  2172. =item No DB::DB routine defined
  2173.  
  2174. (F) The currently executing code was compiled with the B<-d> switch,
  2175. but for some reason the perl5db.pl file (or some facsimile thereof)
  2176. didn't define a routine to be called at the beginning of each
  2177. statement.  Which is odd, because the file should have been required
  2178. automatically, and should have blown up the require if it didn't parse
  2179. right.
  2180.  
  2181. =item No dbm on this machine
  2182.  
  2183. (P) This is counted as an internal error, because every machine should
  2184. supply dbm nowadays, because Perl comes with SDBM.  See L<SDBM_File>.
  2185.  
  2186. =item No DBsub routine
  2187.  
  2188. (F) The currently executing code was compiled with the B<-d> switch,
  2189. but for some reason the perl5db.pl file (or some facsimile thereof)
  2190. didn't define a DB::sub routine to be called at the beginning of each
  2191. ordinary subroutine call.
  2192.  
  2193. =item No error file after 2E<gt> or 2E<gt>E<gt> on command line
  2194.  
  2195. (F) An error peculiar to VMS.  Perl handles its own command line redirection,
  2196. and found a '2E<gt>' or a '2E<gt>E<gt>' on the command line, but can't find
  2197. the name of the file to which to write data destined for stderr.
  2198.  
  2199. =item No input file after E<lt> on command line
  2200.  
  2201. (F) An error peculiar to VMS.  Perl handles its own command line redirection,
  2202. and found a 'E<lt>' on the command line, but can't find the name of the file
  2203. from which to read data for stdin.
  2204.  
  2205. =item No output file after E<gt> on command line
  2206.  
  2207. (F) An error peculiar to VMS.  Perl handles its own command line redirection,
  2208. and found a lone 'E<gt>' at the end of the command line, so it doesn't know
  2209. where you wanted to redirect stdout.
  2210.  
  2211. =item No output file after E<gt> or E<gt>E<gt> on command line
  2212.  
  2213. (F) An error peculiar to VMS.  Perl handles its own command line redirection,
  2214. and found a 'E<gt>' or a 'E<gt>E<gt>' on the command line, but can't find the
  2215. name of the file to which to write data destined for stdout.
  2216.  
  2217. =item No Perl script found in input
  2218.  
  2219. (F) You called C<perl -x>, but no line was found in the file beginning
  2220. with #! and containing the word "perl".
  2221.  
  2222. =item No setregid available
  2223.  
  2224. (F) Configure didn't find anything resembling the setregid() call for
  2225. your system.
  2226.  
  2227. =item No setreuid available
  2228.  
  2229. (F) Configure didn't find anything resembling the setreuid() call for
  2230. your system.
  2231.  
  2232. =item No space allowed after B<-I>
  2233.  
  2234. (F) The argument to B<-I> must follow the B<-I> immediately with no
  2235. intervening space.
  2236.  
  2237. =item No such array field
  2238.  
  2239. (F) You tried to access an array as a hash, but the field name used is
  2240. not defined.  The hash at index 0 should map all valid field names to
  2241. array indices for that to work.
  2242.  
  2243. =item No such field "%s" in variable %s of type %s
  2244.  
  2245. (F) You tried to access a field of a typed variable where the type
  2246. does not know about the field name.  The field names are looked up in
  2247. the %FIELDS hash in the type package at compile time.  The %FIELDS hash
  2248. is usually set up with the 'fields' pragma.
  2249.  
  2250. =item No such pipe open
  2251.  
  2252. (P) An error peculiar to VMS.  The internal routine my_pclose() tried to
  2253. close a pipe which hadn't been opened.  This should have been caught earlier as
  2254. an attempt to close an unopened filehandle.
  2255.  
  2256. =item No such signal: SIG%s
  2257.  
  2258. (W) You specified a signal name as a subscript to %SIG that was not recognized.
  2259. Say C<kill -l> in your shell to see the valid signal names on your system.
  2260.  
  2261. =item Not a CODE reference
  2262.  
  2263. (F) Perl was trying to evaluate a reference to a code value (that is, a
  2264. subroutine), but found a reference to something else instead.  You can
  2265. use the ref() function to find out what kind of ref it really was.
  2266. See also L<perlref>.
  2267.  
  2268. =item Not a format reference
  2269.  
  2270. (F) I'm not sure how you managed to generate a reference to an anonymous
  2271. format, but this indicates you did, and that it didn't exist.
  2272.  
  2273. =item Not a GLOB reference
  2274.  
  2275. (F) Perl was trying to evaluate a reference to a "typeglob" (that is,
  2276. a symbol table entry that looks like C<*foo>), but found a reference to
  2277. something else instead.  You can use the ref() function to find out
  2278. what kind of ref it really was.  See L<perlref>.
  2279.  
  2280. =item Not a HASH reference
  2281.  
  2282. (F) Perl was trying to evaluate a reference to a hash value, but
  2283. found a reference to something else instead.  You can use the ref()
  2284. function to find out what kind of ref it really was.  See L<perlref>.
  2285.  
  2286. =item Not a perl script
  2287.  
  2288. (F) The setuid emulator requires that scripts have a well-formed #! line
  2289. even on machines that don't support the #! construct.  The line must
  2290. mention perl.
  2291.  
  2292. =item Not a SCALAR reference
  2293.  
  2294. (F) Perl was trying to evaluate a reference to a scalar value, but
  2295. found a reference to something else instead.  You can use the ref()
  2296. function to find out what kind of ref it really was.  See L<perlref>.
  2297.  
  2298. =item Not a subroutine reference
  2299.  
  2300. (F) Perl was trying to evaluate a reference to a code value (that is, a
  2301. subroutine), but found a reference to something else instead.  You can
  2302. use the ref() function to find out what kind of ref it really was.
  2303. See also L<perlref>.
  2304.  
  2305. =item Not a subroutine reference in overload table
  2306.  
  2307. (F) An attempt was made to specify an entry in an overloading table that
  2308. doesn't somehow point to a valid subroutine.  See L<overload>.
  2309.  
  2310. =item Not an ARRAY reference
  2311.  
  2312. (F) Perl was trying to evaluate a reference to an array value, but
  2313. found a reference to something else instead.  You can use the ref()
  2314. function to find out what kind of ref it really was.  See L<perlref>.
  2315.  
  2316. =item Not enough arguments for %s
  2317.  
  2318. (F) The function requires more arguments than you specified.
  2319.  
  2320. =item Not enough format arguments
  2321.  
  2322. (W) A format specified more picture fields than the next line supplied.
  2323. See L<perlform>.
  2324.  
  2325. =item Null filename used
  2326.  
  2327. (F) You can't require the null filename, especially because on many machines
  2328. that means the current directory!  See L<perlfunc/require>.
  2329.  
  2330. =item Null picture in formline
  2331.  
  2332. (F) The first argument to formline must be a valid format picture
  2333. specification.  It was found to be empty, which probably means you
  2334. supplied it an uninitialized value.  See L<perlform>.
  2335.  
  2336. =item NULL OP IN RUN
  2337.  
  2338. (P) Some internal routine called run() with a null opcode pointer.
  2339.  
  2340. =item Null realloc
  2341.  
  2342. (P) An attempt was made to realloc NULL.
  2343.  
  2344. =item NULL regexp argument
  2345.  
  2346. (P) The internal pattern matching routines blew it big time.
  2347.  
  2348. =item NULL regexp parameter
  2349.  
  2350. (P) The internal pattern matching routines are out of their gourd.
  2351.  
  2352. =item Number too long
  2353.  
  2354. (F) Perl limits the representation of decimal numbers in programs to about
  2355. about 250 characters.  You've exceeded that length.  Future versions of
  2356. Perl are likely to eliminate this arbitrary limitation.  In the meantime,
  2357. try using scientific notation (e.g. "1e6" instead of "1_000_000").
  2358.  
  2359. =item Odd number of elements in hash assignment
  2360.  
  2361. (S) You specified an odd number of elements to initialize a hash, which
  2362. is odd, because hashes come in key/value pairs.
  2363.  
  2364. =item Offset outside string
  2365.  
  2366. (F) You tried to do a read/write/send/recv operation with an offset
  2367. pointing outside the buffer.  This is difficult to imagine.
  2368. The sole exception to this is that C<sysread()>ing past the buffer
  2369. will extend the buffer and zero pad the new area.
  2370.  
  2371. =item oops: oopsAV
  2372.  
  2373. (S) An internal warning that the grammar is screwed up.
  2374.  
  2375. =item oops: oopsHV
  2376.  
  2377. (S) An internal warning that the grammar is screwed up.
  2378.  
  2379. =item Operation `%s': no method found, %s
  2380.  
  2381. (F) An attempt was made to perform an overloaded operation for which
  2382. no handler was defined.  While some handlers can be autogenerated in
  2383. terms of other handlers, there is no default handler for any
  2384. operation, unless C<fallback> overloading key is specified to be
  2385. true.  See L<overload>.
  2386.  
  2387. =item Operator or semicolon missing before %s
  2388.  
  2389. (S) You used a variable or subroutine call where the parser was
  2390. expecting an operator.  The parser has assumed you really meant
  2391. to use an operator, but this is highly likely to be incorrect.
  2392. For example, if you say "*foo *foo" it will be interpreted as
  2393. if you said "*foo * 'foo'".
  2394.  
  2395. =item Out of memory for yacc stack
  2396.  
  2397. (F) The yacc parser wanted to grow its stack so it could continue parsing,
  2398. but realloc() wouldn't give it more memory, virtual or otherwise.
  2399.  
  2400. =item Out of memory during request for %s
  2401.  
  2402. (X|F) The malloc() function returned 0, indicating there was insufficient
  2403. remaining memory (or virtual memory) to satisfy the request.
  2404.  
  2405. The request was judged to be small, so the possibility to trap it
  2406. depends on the way perl was compiled.  By default it is not trappable.
  2407. However, if compiled for this, Perl may use the contents of C<$^M> as
  2408. an emergency pool after die()ing with this message.  In this case the
  2409. error is trappable I<once>.
  2410.  
  2411. =item Out of memory during "large" request for %s
  2412.  
  2413. (F) The malloc() function returned 0, indicating there was insufficient
  2414. remaining memory (or virtual memory) to satisfy the request. However,
  2415. the request was judged large enough (compile-time default is 64K), so
  2416. a possibility to shut down by trapping this error is granted.
  2417.  
  2418. =item Out of memory during ridiculously large request
  2419.  
  2420. (F) You can't allocate more than 2^31+"small amount" bytes.  This error
  2421. is most likely to be caused by a typo in the Perl program. e.g., C<$arr[time]>
  2422. instead of C<$arr[$time]>.
  2423.  
  2424. =item page overflow
  2425.  
  2426. (W) A single call to write() produced more lines than can fit on a page.
  2427. See L<perlform>.
  2428.  
  2429. =item panic: ck_grep
  2430.  
  2431. (P) Failed an internal consistency check trying to compile a grep.
  2432.  
  2433. =item panic: ck_split
  2434.  
  2435. (P) Failed an internal consistency check trying to compile a split.
  2436.  
  2437. =item panic: corrupt saved stack index
  2438.  
  2439. (P) The savestack was requested to restore more localized values than there
  2440. are in the savestack.
  2441.  
  2442. =item panic: die %s
  2443.  
  2444. (P) We popped the context stack to an eval context, and then discovered
  2445. it wasn't an eval context.
  2446.  
  2447. =item panic: do_match
  2448.  
  2449. (P) The internal pp_match() routine was called with invalid operational data.
  2450.  
  2451. =item panic: do_split
  2452.  
  2453. (P) Something terrible went wrong in setting up for the split.
  2454.  
  2455. =item panic: do_subst
  2456.  
  2457. (P) The internal pp_subst() routine was called with invalid operational data.
  2458.  
  2459. =item panic: do_trans
  2460.  
  2461. (P) The internal do_trans() routine was called with invalid operational data.
  2462.  
  2463. =item panic: frexp
  2464.  
  2465. (P) The library function frexp() failed, making printf("%f") impossible.
  2466.  
  2467. =item panic: goto
  2468.  
  2469. (P) We popped the context stack to a context with the specified label,
  2470. and then discovered it wasn't a context we know how to do a goto in.
  2471.  
  2472. =item panic: INTERPCASEMOD
  2473.  
  2474. (P) The lexer got into a bad state at a case modifier.
  2475.  
  2476. =item panic: INTERPCONCAT
  2477.  
  2478. (P) The lexer got into a bad state parsing a string with brackets.
  2479.  
  2480. =item panic: last
  2481.  
  2482. (P) We popped the context stack to a block context, and then discovered
  2483. it wasn't a block context.
  2484.  
  2485. =item panic: leave_scope clearsv
  2486.  
  2487. (P) A writable lexical variable became read-only somehow within the scope.
  2488.  
  2489. =item panic: leave_scope inconsistency
  2490.  
  2491. (P) The savestack probably got out of sync.  At least, there was an
  2492. invalid enum on the top of it.
  2493.  
  2494. =item panic: malloc
  2495.  
  2496. (P) Something requested a negative number of bytes of malloc.
  2497.  
  2498. =item panic: mapstart
  2499.  
  2500. (P) The compiler is screwed up with respect to the map() function.
  2501.  
  2502. =item panic: null array
  2503.  
  2504. (P) One of the internal array routines was passed a null AV pointer.
  2505.  
  2506. =item panic: pad_alloc
  2507.  
  2508. (P) The compiler got confused about which scratch pad it was allocating
  2509. and freeing temporaries and lexicals from.
  2510.  
  2511. =item panic: pad_free curpad
  2512.  
  2513. (P) The compiler got confused about which scratch pad it was allocating
  2514. and freeing temporaries and lexicals from.
  2515.  
  2516. =item panic: pad_free po
  2517.  
  2518. (P) An invalid scratch pad offset was detected internally.
  2519.  
  2520. =item panic: pad_reset curpad
  2521.  
  2522. (P) The compiler got confused about which scratch pad it was allocating
  2523. and freeing temporaries and lexicals from.
  2524.  
  2525. =item panic: pad_sv po
  2526.  
  2527. (P) An invalid scratch pad offset was detected internally.
  2528.  
  2529. =item panic: pad_swipe curpad
  2530.  
  2531. (P) The compiler got confused about which scratch pad it was allocating
  2532. and freeing temporaries and lexicals from.
  2533.  
  2534. =item panic: pad_swipe po
  2535.  
  2536. (P) An invalid scratch pad offset was detected internally.
  2537.  
  2538. =item panic: pp_iter
  2539.  
  2540. (P) The foreach iterator got called in a non-loop context frame.
  2541.  
  2542. =item panic: realloc
  2543.  
  2544. (P) Something requested a negative number of bytes of realloc.
  2545.  
  2546. =item panic: restartop
  2547.  
  2548. (P) Some internal routine requested a goto (or something like it), and
  2549. didn't supply the destination.
  2550.  
  2551. =item panic: return
  2552.  
  2553. (P) We popped the context stack to a subroutine or eval context, and
  2554. then discovered it wasn't a subroutine or eval context.
  2555.  
  2556. =item panic: scan_num
  2557.  
  2558. (P) scan_num() got called on something that wasn't a number.
  2559.  
  2560. =item panic: sv_insert
  2561.  
  2562. (P) The sv_insert() routine was told to remove more string than there
  2563. was string.
  2564.  
  2565. =item panic: top_env
  2566.  
  2567. (P) The compiler attempted to do a goto, or something weird like that.
  2568.  
  2569. =item panic: yylex
  2570.  
  2571. (P) The lexer got into a bad state while processing a case modifier.
  2572.  
  2573. =item Parentheses missing around "%s" list
  2574.  
  2575. (W) You said something like
  2576.  
  2577.     my $foo, $bar = @_;
  2578.  
  2579. when you meant
  2580.  
  2581.     my ($foo, $bar) = @_;
  2582.  
  2583. Remember that "my" and "local" bind closer than comma.
  2584.  
  2585. =item Perl %3.3f required--this is only version %s, stopped
  2586.  
  2587. (F) The module in question uses features of a version of Perl more recent
  2588. than the currently running version.  How long has it been since you upgraded,
  2589. anyway?  See L<perlfunc/require>.
  2590.  
  2591. =item Permission denied
  2592.  
  2593. (F) The setuid emulator in suidperl decided you were up to no good.
  2594.  
  2595. =item pid %d not a child
  2596.  
  2597. (W) A warning peculiar to VMS.  Waitpid() was asked to wait for a process which
  2598. isn't a subprocess of the current process.  While this is fine from VMS'
  2599. perspective, it's probably not what you intended.
  2600.  
  2601. =item POSIX getpgrp can't take an argument
  2602.  
  2603. (F) Your C compiler uses POSIX getpgrp(), which takes no argument, unlike
  2604. the BSD version, which takes a pid.
  2605.  
  2606. =item Possible attempt to put comments in qw() list
  2607.  
  2608. (W) qw() lists contain items separated by whitespace; as with literal
  2609. strings, comment characters are not ignored, but are instead treated
  2610. as literal data.  (You may have used different delimiters than the
  2611. parentheses shown here; braces are also frequently used.)
  2612.  
  2613. You probably wrote something like this:
  2614.  
  2615.     @list = qw(
  2616.     a # a comment
  2617.         b # another comment
  2618.     );
  2619.  
  2620. when you should have written this:
  2621.  
  2622.     @list = qw(
  2623.     a
  2624.         b
  2625.     );
  2626.  
  2627. If you really want comments, build your list the
  2628. old-fashioned way, with quotes and commas:
  2629.  
  2630.     @list = (
  2631.         'a',    # a comment
  2632.         'b',    # another comment
  2633.     );
  2634.  
  2635. =item Possible attempt to separate words with commas
  2636.  
  2637. (W) qw() lists contain items separated by whitespace; therefore commas
  2638. aren't needed to separate the items.  (You may have used different
  2639. delimiters than the parentheses shown here; braces are also frequently
  2640. used.)
  2641.  
  2642. You probably wrote something like this:
  2643.  
  2644.     qw! a, b, c !;
  2645.  
  2646. which puts literal commas into some of the list items.  Write it without
  2647. commas if you don't want them to appear in your data:
  2648.  
  2649.     qw! a b c !;
  2650.  
  2651. =item Possible memory corruption: %s overflowed 3rd argument
  2652.  
  2653. (F) An ioctl() or fcntl() returned more than Perl was bargaining for.
  2654. Perl guesses a reasonable buffer size, but puts a sentinel byte at the
  2655. end of the buffer just in case.  This sentinel byte got clobbered, and
  2656. Perl assumes that memory is now corrupted.  See L<perlfunc/ioctl>.
  2657.  
  2658. =item Precedence problem: open %s should be open(%s)
  2659.  
  2660. (S) The old irregular construct
  2661.  
  2662.     open FOO || die;
  2663.  
  2664. is now misinterpreted as
  2665.  
  2666.     open(FOO || die);
  2667.  
  2668. because of the strict regularization of Perl 5's grammar into unary
  2669. and list operators.  (The old open was a little of both.)  You must
  2670. put parentheses around the filehandle, or use the new "or" operator
  2671. instead of "||".
  2672.  
  2673. =item print on closed filehandle %s
  2674.  
  2675. (W) The filehandle you're printing on got itself closed sometime before now.
  2676. Check your logic flow.
  2677.  
  2678. =item printf on closed filehandle %s
  2679.  
  2680. (W) The filehandle you're writing to got itself closed sometime before now.
  2681. Check your logic flow.
  2682.  
  2683. =item Probable precedence problem on %s
  2684.  
  2685. (W) The compiler found a bareword where it expected a conditional,
  2686. which often indicates that an || or && was parsed as part of the
  2687. last argument of the previous construct, for example:
  2688.  
  2689.     open FOO || die;
  2690.  
  2691. =item Prototype mismatch: %s vs %s
  2692.  
  2693. (S) The subroutine being declared or defined had previously been declared
  2694. or defined with a different function prototype.
  2695.  
  2696. =item Range iterator outside integer range
  2697.  
  2698. (F) One (or both) of the numeric arguments to the range operator ".."
  2699. are outside the range which can be represented by integers internally.
  2700. One possible workaround is to force Perl to use magical string
  2701. increment by prepending "0" to your numbers.
  2702.  
  2703. =item Read on closed filehandle E<lt>%sE<gt>
  2704.  
  2705. (W) The filehandle you're reading from got itself closed sometime before now.
  2706. Check your logic flow.
  2707.  
  2708. =item Reallocation too large: %lx
  2709.  
  2710. (F) You can't allocate more than 64K on an MS-DOS machine.
  2711.  
  2712. =item Recompile perl with B<-D>DEBUGGING to use B<-D> switch
  2713.  
  2714. (F) You can't use the B<-D> option unless the code to produce the
  2715. desired output is compiled into Perl, which entails some overhead,
  2716. which is why it's currently left out of your copy.
  2717.  
  2718. =item Recursive inheritance detected in package '%s'
  2719.  
  2720. (F) More than 100 levels of inheritance were used.  Probably indicates
  2721. an unintended loop in your inheritance hierarchy.
  2722.  
  2723. =item Recursive inheritance detected while looking for method '%s' in package '%s'
  2724.  
  2725. (F) More than 100 levels of inheritance were encountered while invoking a
  2726. method.  Probably indicates an unintended loop in your inheritance hierarchy.
  2727.  
  2728. =item Reference found where even-sized list expected
  2729.  
  2730. (W) You gave a single reference where Perl was expecting a list with
  2731. an even number of elements (for assignment to a hash). This
  2732. usually means that you used the anon hash constructor when you meant 
  2733. to use parens. In any case, a hash requires key/value B<pairs>.
  2734.  
  2735.     %hash = { one => 1, two => 2, };    # WRONG
  2736.     %hash = [ qw/ an anon array / ];    # WRONG
  2737.     %hash = ( one => 1, two => 2, );    # right
  2738.     %hash = qw( one 1 two 2 );            # also fine
  2739.  
  2740. =item Reference miscount in sv_replace()
  2741.  
  2742. (W) The internal sv_replace() function was handed a new SV with a
  2743. reference count of other than 1.
  2744.  
  2745. =item regexp *+ operand could be empty
  2746.  
  2747. (F) The part of the regexp subject to either the * or + quantifier
  2748. could match an empty string.
  2749.  
  2750. =item regexp memory corruption
  2751.  
  2752. (P) The regular expression engine got confused by what the regular
  2753. expression compiler gave it.
  2754.  
  2755. =item regexp out of space
  2756.  
  2757. (P) A "can't happen" error, because safemalloc() should have caught it earlier.
  2758.  
  2759. =item regexp too big
  2760.  
  2761. (F) The current implementation of regular expressions uses shorts as
  2762. address offsets within a string.  Unfortunately this means that if
  2763. the regular expression compiles to longer than 32767, it'll blow up.
  2764. Usually when you want a regular expression this big, there is a better
  2765. way to do it with multiple statements.  See L<perlre>.
  2766.  
  2767. =item Reversed %s= operator
  2768.  
  2769. (W) You wrote your assignment operator backwards.  The = must always
  2770. comes last, to avoid ambiguity with subsequent unary operators.
  2771.  
  2772. =item Runaway format
  2773.  
  2774. (F) Your format contained the ~~ repeat-until-blank sequence, but it
  2775. produced 200 lines at once, and the 200th line looked exactly like the
  2776. 199th line.  Apparently you didn't arrange for the arguments to exhaust
  2777. themselves, either by using ^ instead of @ (for scalar variables), or by
  2778. shifting or popping (for array variables).  See L<perlform>.
  2779.  
  2780. =item Scalar value @%s[%s] better written as $%s[%s]
  2781.  
  2782. (W) You've used an array slice (indicated by @) to select a single element of
  2783. an array.  Generally it's better to ask for a scalar value (indicated by $).
  2784. The difference is that C<$foo[&bar]> always behaves like a scalar, both when
  2785. assigning to it and when evaluating its argument, while C<@foo[&bar]> behaves
  2786. like a list when you assign to it, and provides a list context to its
  2787. subscript, which can do weird things if you're expecting only one subscript.
  2788.  
  2789. On the other hand, if you were actually hoping to treat the array
  2790. element as a list, you need to look into how references work, because
  2791. Perl will not magically convert between scalars and lists for you.  See
  2792. L<perlref>.
  2793.  
  2794. =item Scalar value @%s{%s} better written as $%s{%s}
  2795.  
  2796. (W) You've used a hash slice (indicated by @) to select a single element of
  2797. a hash.  Generally it's better to ask for a scalar value (indicated by $).
  2798. The difference is that C<$foo{&bar}> always behaves like a scalar, both when
  2799. assigning to it and when evaluating its argument, while C<@foo{&bar}> behaves
  2800. like a list when you assign to it, and provides a list context to its
  2801. subscript, which can do weird things if you're expecting only one subscript.
  2802.  
  2803. On the other hand, if you were actually hoping to treat the hash
  2804. element as a list, you need to look into how references work, because
  2805. Perl will not magically convert between scalars and lists for you.  See
  2806. L<perlref>.
  2807.  
  2808. =item Script is not setuid/setgid in suidperl
  2809.  
  2810. (F) Oddly, the suidperl program was invoked on a script without a setuid
  2811. or setgid bit set.  This doesn't make much sense.
  2812.  
  2813. =item Search pattern not terminated
  2814.  
  2815. (F) The lexer couldn't find the final delimiter of a // or m{}
  2816. construct.  Remember that bracketing delimiters count nesting level.
  2817. Missing the leading C<$> from a variable C<$m> may cause this error.
  2818.  
  2819. =item %sseek() on unopened file
  2820.  
  2821. (W) You tried to use the seek() or sysseek() function on a filehandle that
  2822. was either never opened or has since been closed.
  2823.  
  2824. =item select not implemented
  2825.  
  2826. (F) This machine doesn't implement the select() system call.
  2827.  
  2828. =item sem%s not implemented
  2829.  
  2830. (F) You don't have System V semaphore IPC on your system.
  2831.  
  2832. =item semi-panic: attempt to dup freed string
  2833.  
  2834. (S) The internal newSVsv() routine was called to duplicate a scalar
  2835. that had previously been marked as free.
  2836.  
  2837. =item Semicolon seems to be missing
  2838.  
  2839. (W) A nearby syntax error was probably caused by a missing semicolon,
  2840. or possibly some other missing operator, such as a comma.
  2841.  
  2842. =item Send on closed socket
  2843.  
  2844. (W) The filehandle you're sending to got itself closed sometime before now.
  2845. Check your logic flow.
  2846.  
  2847. =item Sequence (? incomplete
  2848.  
  2849. (F) A regular expression ended with an incomplete extension (?.
  2850. See L<perlre>.
  2851.  
  2852. =item Sequence (?#... not terminated
  2853.  
  2854. (F) A regular expression comment must be terminated by a closing
  2855. parenthesis.  Embedded parentheses aren't allowed.  See L<perlre>.
  2856.  
  2857. =item Sequence (?%s...) not implemented
  2858.  
  2859. (F) A proposed regular expression extension has the character reserved
  2860. but has not yet been written.  See L<perlre>.
  2861.  
  2862. =item Sequence (?%s...) not recognized
  2863.  
  2864. (F) You used a regular expression extension that doesn't make sense.
  2865. See L<perlre>.
  2866.  
  2867. =item Server error
  2868.  
  2869. Also known as "500 Server error".
  2870.  
  2871. B<This is a CGI error, not a Perl error>.
  2872.  
  2873. You need to make sure your script is executable, is accessible by the user
  2874. CGI is running the script under (which is probably not the user account you
  2875. tested it under), does not rely on any environment variables (like PATH)
  2876. from the user it isn't running under, and isn't in a location where the CGI
  2877. server can't find it, basically, more or less.  Please see the following
  2878. for more information:
  2879.  
  2880.     http://www.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html
  2881.     http://www.perl.com/CPAN/doc/FAQs/cgi/perl-cgi-faq.html
  2882.     ftp://rtfm.mit.edu/pub/usenet/news.answers/www/cgi-faq
  2883.     http://hoohoo.ncsa.uiuc.edu/cgi/interface.html
  2884.     http://www-genome.wi.mit.edu/WWW/faqs/www-security-faq.html
  2885.  
  2886. You should also look at L<perlfaq9>.
  2887.  
  2888. =item setegid() not implemented
  2889.  
  2890. (F) You tried to assign to C<$)>, and your operating system doesn't support
  2891. the setegid() system call (or equivalent), or at least Configure didn't
  2892. think so.
  2893.  
  2894. =item seteuid() not implemented
  2895.  
  2896. (F) You tried to assign to C<$E<gt>>, and your operating system doesn't support
  2897. the seteuid() system call (or equivalent), or at least Configure didn't
  2898. think so.
  2899.  
  2900. =item setrgid() not implemented
  2901.  
  2902. (F) You tried to assign to C<$(>, and your operating system doesn't support
  2903. the setrgid() system call (or equivalent), or at least Configure didn't
  2904. think so.
  2905.  
  2906. =item setruid() not implemented
  2907.  
  2908. (F) You tried to assign to C<$E<lt>>, and your operating system doesn't support
  2909. the setruid() system call (or equivalent), or at least Configure didn't
  2910. think so.
  2911.  
  2912. =item Setuid/gid script is writable by world
  2913.  
  2914. (F) The setuid emulator won't run a script that is writable by the world,
  2915. because the world might have written on it already.
  2916.  
  2917. =item shm%s not implemented
  2918.  
  2919. (F) You don't have System V shared memory IPC on your system.
  2920.  
  2921. =item shutdown() on closed fd
  2922.  
  2923. (W) You tried to do a shutdown on a closed socket.  Seems a bit superfluous.
  2924.  
  2925. =item SIG%s handler "%s" not defined
  2926.  
  2927. (W) The signal handler named in %SIG doesn't, in fact, exist.  Perhaps you
  2928. put it into the wrong package?
  2929.  
  2930. =item sort is now a reserved word
  2931.  
  2932. (F) An ancient error message that almost nobody ever runs into anymore.
  2933. But before sort was a keyword, people sometimes used it as a filehandle.
  2934.  
  2935. =item Sort subroutine didn't return a numeric value
  2936.  
  2937. (F) A sort comparison routine must return a number.  You probably blew
  2938. it by not using C<E<lt>=E<gt>> or C<cmp>, or by not using them correctly.
  2939. See L<perlfunc/sort>.
  2940.  
  2941. =item Sort subroutine didn't return single value
  2942.  
  2943. (F) A sort comparison subroutine may not return a list value with more
  2944. or less than one element.  See L<perlfunc/sort>.
  2945.  
  2946. =item Split loop
  2947.  
  2948. (P) The split was looping infinitely.  (Obviously, a split shouldn't iterate
  2949. more times than there are characters of input, which is what happened.)
  2950. See L<perlfunc/split>.
  2951.  
  2952. =item Stat on unopened file E<lt>%sE<gt>
  2953.  
  2954. (W) You tried to use the stat() function (or an equivalent file test)
  2955. on a filehandle that was either never opened or has since been closed.
  2956.  
  2957. =item Statement unlikely to be reached
  2958.  
  2959. (W) You did an exec() with some statement after it other than a die().
  2960. This is almost always an error, because exec() never returns unless
  2961. there was a failure.  You probably wanted to use system() instead,
  2962. which does return.  To suppress this warning, put the exec() in a block
  2963. by itself.
  2964.  
  2965. =item Strange *+?{} on zero-length expression
  2966.  
  2967. (W) You applied a regular expression quantifier in a place where it
  2968. makes no sense, such as on a zero-width assertion.
  2969. Try putting the quantifier inside the assertion instead.  For example,
  2970. the way to match "abc" provided that it is followed by three
  2971. repetitions of "xyz" is C</abc(?=(?:xyz){3})/>, not C</abc(?=xyz){3}/>.
  2972.  
  2973. =item Stub found while resolving method `%s' overloading `%s' in package `%s'
  2974.  
  2975. (P) Overloading resolution over @ISA tree may be broken by importation stubs.
  2976. Stubs should never be implicitely created, but explicit calls to C<can>
  2977. may break this.
  2978.  
  2979. =item Subroutine %s redefined
  2980.  
  2981. (W) You redefined a subroutine.  To suppress this warning, say
  2982.  
  2983.     {
  2984.     local $^W = 0;
  2985.     eval "sub name { ... }";
  2986.     }
  2987.  
  2988. =item Substitution loop
  2989.  
  2990. (P) The substitution was looping infinitely.  (Obviously, a
  2991. substitution shouldn't iterate more times than there are characters of
  2992. input, which is what happened.)  See the discussion of substitution in
  2993. L<perlop/"Quote and Quote-like Operators">.
  2994.  
  2995. =item Substitution pattern not terminated
  2996.  
  2997. (F) The lexer couldn't find the interior delimiter of a s/// or s{}{}
  2998. construct.  Remember that bracketing delimiters count nesting level.
  2999. Missing the leading C<$> from variable C<$s> may cause this error.
  3000.  
  3001. =item Substitution replacement not terminated
  3002.  
  3003. (F) The lexer couldn't find the final delimiter of a s/// or s{}{}
  3004. construct.  Remember that bracketing delimiters count nesting level.
  3005. Missing the leading C<$> from variable C<$s> may cause this error.
  3006.  
  3007. =item substr outside of string
  3008.  
  3009. (S),(W) You tried to reference a substr() that pointed outside of a
  3010. string.  That is, the absolute value of the offset was larger than the
  3011. length of the string.  See L<perlfunc/substr>.  This warning is
  3012. mandatory if substr is used in an lvalue context (as the left hand side
  3013. of an assignment or as a subroutine argument for example).
  3014.  
  3015. =item suidperl is no longer needed since %s
  3016.  
  3017. (F) Your Perl was compiled with B<-D>SETUID_SCRIPTS_ARE_SECURE_NOW, but a
  3018. version of the setuid emulator somehow got run anyway.
  3019.  
  3020. =item syntax error
  3021.  
  3022. (F) Probably means you had a syntax error.  Common reasons include:
  3023.  
  3024.     A keyword is misspelled.
  3025.     A semicolon is missing.
  3026.     A comma is missing.
  3027.     An opening or closing parenthesis is missing.
  3028.     An opening or closing brace is missing.
  3029.     A closing quote is missing.
  3030.  
  3031. Often there will be another error message associated with the syntax
  3032. error giving more information.  (Sometimes it helps to turn on B<-w>.)
  3033. The error message itself often tells you where it was in the line when
  3034. it decided to give up.  Sometimes the actual error is several tokens
  3035. before this, because Perl is good at understanding random input.
  3036. Occasionally the line number may be misleading, and once in a blue moon
  3037. the only way to figure out what's triggering the error is to call
  3038. C<perl -c> repeatedly, chopping away half the program each time to see
  3039. if the error went away.  Sort of the cybernetic version of S<20 questions>.
  3040.  
  3041. =item syntax error at line %d: `%s' unexpected
  3042.  
  3043. (A) You've accidentally run your script through the Bourne shell
  3044. instead of Perl.  Check the #! line, or manually feed your script
  3045. into Perl yourself.
  3046.  
  3047. =item System V %s is not implemented on this machine
  3048.  
  3049. (F) You tried to do something with a function beginning with "sem",
  3050. "shm", or "msg" but that System V IPC is not implemented in your
  3051. machine.  In some machines the functionality can exist but be
  3052. unconfigured.  Consult your system support.
  3053.  
  3054. =item Syswrite on closed filehandle
  3055.  
  3056. (W) The filehandle you're writing to got itself closed sometime before now.
  3057. Check your logic flow.
  3058.  
  3059. =item Target of goto is too deeply nested
  3060.  
  3061. (F) You tried to use C<goto> to reach a label that was too deeply
  3062. nested for Perl to reach.  Perl is doing you a favor by refusing.
  3063.  
  3064. =item tell() on unopened file
  3065.  
  3066. (W) You tried to use the tell() function on a filehandle that was either
  3067. never opened or has since been closed.
  3068.  
  3069. =item Test on unopened file E<lt>%sE<gt>
  3070.  
  3071. (W) You tried to invoke a file test operator on a filehandle that isn't
  3072. open.  Check your logic.  See also L<perlfunc/-X>.
  3073.  
  3074. =item That use of $[ is unsupported
  3075.  
  3076. (F) Assignment to C<$[> is now strictly circumscribed, and interpreted as
  3077. a compiler directive.  You may say only one of
  3078.  
  3079.     $[ = 0;
  3080.     $[ = 1;
  3081.     ...
  3082.     local $[ = 0;
  3083.     local $[ = 1;
  3084.     ...
  3085.  
  3086. This is to prevent the problem of one module changing the array base
  3087. out from under another module inadvertently.  See L<perlvar/$[>.
  3088.  
  3089. =item The %s function is unimplemented
  3090.  
  3091. The function indicated isn't implemented on this architecture, according
  3092. to the probings of Configure.
  3093.  
  3094. =item The crypt() function is unimplemented due to excessive paranoia
  3095.  
  3096. (F) Configure couldn't find the crypt() function on your machine,
  3097. probably because your vendor didn't supply it, probably because they
  3098. think the U.S. Government thinks it's a secret, or at least that they
  3099. will continue to pretend that it is.  And if you quote me on that, I
  3100. will deny it.
  3101.  
  3102. =item The stat preceding C<-l _> wasn't an lstat
  3103.  
  3104. (F) It makes no sense to test the current stat buffer for symbolic linkhood
  3105. if the last stat that wrote to the stat buffer already went past
  3106. the symlink to get to the real file.  Use an actual filename instead.
  3107.  
  3108. =item times not implemented
  3109.  
  3110. (F) Your version of the C library apparently doesn't do times().  I suspect
  3111. you're not running on Unix.
  3112.  
  3113. =item Too few args to syscall
  3114.  
  3115. (F) There has to be at least one argument to syscall() to specify the
  3116. system call to call, silly dilly.
  3117.  
  3118. =item Too late for "B<-T>" option
  3119.  
  3120. (X) The #! line (or local equivalent) in a Perl script contains the
  3121. B<-T> option, but Perl was not invoked with B<-T> in its command line.
  3122. This is an error because, by the time Perl discovers a B<-T> in a
  3123. script, it's too late to properly taint everything from the environment.
  3124. So Perl gives up.
  3125.  
  3126. If the Perl script is being executed as a command using the #!
  3127. mechanism (or its local equivalent), this error can usually be fixed
  3128. by editing the #! line so that the B<-T> option is a part of Perl's
  3129. first argument: e.g. change C<perl -n -T> to C<perl -T -n>.
  3130.  
  3131. If the Perl script is being executed as C<perl scriptname>, then the
  3132. B<-T> option must appear on the command line: C<perl -T scriptname>.
  3133.  
  3134. =item Too late for "-%s" option
  3135.  
  3136. (X) The #! line (or local equivalent) in a Perl script contains the
  3137. B<-M> or B<-m> option.  This is an error because B<-M> and B<-m> options
  3138. are not intended for use inside scripts.  Use the C<use> pragma instead.
  3139.  
  3140. =item Too many ('s
  3141.  
  3142. =item Too many )'s
  3143.  
  3144. (A) You've accidentally run your script through B<csh> instead
  3145. of Perl.  Check the #! line, or manually feed your script into
  3146. Perl yourself.
  3147.  
  3148. =item Too many args to syscall
  3149.  
  3150. (F) Perl supports a maximum of only 14 args to syscall().
  3151.  
  3152. =item Too many arguments for %s
  3153.  
  3154. (F) The function requires fewer arguments than you specified.
  3155.  
  3156. =item trailing \ in regexp
  3157.  
  3158. (F) The regular expression ends with an unbackslashed backslash.  Backslash
  3159. it.   See L<perlre>.
  3160.  
  3161. =item Transliteration pattern not terminated
  3162.  
  3163. (F) The lexer couldn't find the interior delimiter of a tr/// or tr[][]
  3164. or y/// or y[][] construct.  Missing the leading C<$> from variables
  3165. C<$tr> or C<$y> may cause this error.
  3166.  
  3167. =item Transliteration replacement not terminated
  3168.  
  3169. (F) The lexer couldn't find the final delimiter of a tr/// or tr[][]
  3170. construct.
  3171.  
  3172. =item truncate not implemented
  3173.  
  3174. (F) Your machine doesn't implement a file truncation mechanism that
  3175. Configure knows about.
  3176.  
  3177. =item Type of arg %d to %s must be %s (not %s)
  3178.  
  3179. (F) This function requires the argument in that position to be of a
  3180. certain type.  Arrays must be @NAME or C<@{EXPR}>.  Hashes must be
  3181. %NAME or C<%{EXPR}>.  No implicit dereferencing is allowed--use the
  3182. {EXPR} forms as an explicit dereference.  See L<perlref>.
  3183.  
  3184. =item umask: argument is missing initial 0
  3185.  
  3186. (W) A umask of 222 is incorrect.  It should be 0222, because octal
  3187. literals always start with 0 in Perl, as in C.
  3188.  
  3189. =item umask not implemented
  3190.  
  3191. (F) Your machine doesn't implement the umask function and you tried
  3192. to use it to restrict permissions for yourself (EXPR & 0700).
  3193.  
  3194. =item Unable to create sub named "%s"
  3195.  
  3196. (F) You attempted to create or access a subroutine with an illegal name.
  3197.  
  3198. =item Unbalanced context: %d more PUSHes than POPs
  3199.  
  3200. (W) The exit code detected an internal inconsistency in how many execution
  3201. contexts were entered and left.
  3202.  
  3203. =item Unbalanced saves: %d more saves than restores
  3204.  
  3205. (W) The exit code detected an internal inconsistency in how many
  3206. values were temporarily localized.
  3207.  
  3208. =item Unbalanced scopes: %d more ENTERs than LEAVEs
  3209.  
  3210. (W) The exit code detected an internal inconsistency in how many blocks
  3211. were entered and left.
  3212.  
  3213. =item Unbalanced tmps: %d more allocs than frees
  3214.  
  3215. (W) The exit code detected an internal inconsistency in how many mortal
  3216. scalars were allocated and freed.
  3217.  
  3218. =item Undefined format "%s" called
  3219.  
  3220. (F) The format indicated doesn't seem to exist.  Perhaps it's really in
  3221. another package?  See L<perlform>.
  3222.  
  3223. =item Undefined sort subroutine "%s" called
  3224.  
  3225. (F) The sort comparison routine specified doesn't seem to exist.  Perhaps
  3226. it's in a different package?  See L<perlfunc/sort>.
  3227.  
  3228. =item Undefined subroutine &%s called
  3229.  
  3230. (F) The subroutine indicated hasn't been defined, or if it was, it
  3231. has since been undefined.
  3232.  
  3233. =item Undefined subroutine called
  3234.  
  3235. (F) The anonymous subroutine you're trying to call hasn't been defined,
  3236. or if it was, it has since been undefined.
  3237.  
  3238. =item Undefined subroutine in sort
  3239.  
  3240. (F) The sort comparison routine specified is declared but doesn't seem to
  3241. have been defined yet.  See L<perlfunc/sort>.
  3242.  
  3243. =item Undefined top format "%s" called
  3244.  
  3245. (F) The format indicated doesn't seem to exist.  Perhaps it's really in
  3246. another package?  See L<perlform>.
  3247.  
  3248. =item Undefined value assigned to typeglob
  3249.  
  3250. (W) An undefined value was assigned to a typeglob, a la C<*foo = undef>.
  3251. This does nothing.  It's possible that you really mean C<undef *foo>.
  3252.  
  3253. =item unexec of %s into %s failed!
  3254.  
  3255. (F) The unexec() routine failed for some reason.  See your local FSF
  3256. representative, who probably put it there in the first place.
  3257.  
  3258. =item Unknown BYTEORDER
  3259.  
  3260. (F) There are no byte-swapping functions for a machine with this byte order.
  3261.  
  3262. =item unmatched () in regexp
  3263.  
  3264. (F) Unbackslashed parentheses must always be balanced in regular
  3265. expressions.  If you're a vi user, the % key is valuable for finding
  3266. the matching parenthesis.  See L<perlre>.
  3267.  
  3268. =item Unmatched right bracket
  3269.  
  3270. (F) The lexer counted more closing curly brackets (braces) than opening
  3271. ones, so you're probably missing an opening bracket.  As a general
  3272. rule, you'll find the missing one (so to speak) near the place you were
  3273. last editing.
  3274.  
  3275. =item unmatched [] in regexp
  3276.  
  3277. (F) The brackets around a character class must match.  If you wish to
  3278. include a closing bracket in a character class, backslash it or put it first.
  3279. See L<perlre>.
  3280.  
  3281. =item Unquoted string "%s" may clash with future reserved word
  3282.  
  3283. (W) You used a bareword that might someday be claimed as a reserved word.
  3284. It's best to put such a word in quotes, or capitalize it somehow, or insert
  3285. an underbar into it.  You might also declare it as a subroutine.
  3286.  
  3287. =item Unrecognized character %s
  3288.  
  3289. (F) The Perl parser has no idea what to do with the specified character
  3290. in your Perl script (or eval).  Perhaps you tried to run a compressed
  3291. script, a binary program, or a directory as a Perl program.
  3292.  
  3293. =item Unrecognized signal name "%s"
  3294.  
  3295. (F) You specified a signal name to the kill() function that was not recognized.
  3296. Say C<kill -l> in your shell to see the valid signal names on your system.
  3297.  
  3298. =item Unrecognized switch: -%s  (-h will show valid options)
  3299.  
  3300. (F) You specified an illegal option to Perl.  Don't do that.
  3301. (If you think you didn't do that, check the #! line to see if it's
  3302. supplying the bad switch on your behalf.)
  3303.  
  3304. =item Unsuccessful %s on filename containing newline
  3305.  
  3306. (W) A file operation was attempted on a filename, and that operation
  3307. failed, PROBABLY because the filename contained a newline, PROBABLY
  3308. because you forgot to chop() or chomp() it off.  See L<perlfunc/chomp>.
  3309.  
  3310. =item Unsupported directory function "%s" called
  3311.  
  3312. (F) Your machine doesn't support opendir() and readdir().
  3313.  
  3314. =item Unsupported function fork
  3315.  
  3316. (F) Your version of executable does not support forking.
  3317.  
  3318. Note that under some systems, like OS/2, there may be different flavors of
  3319. Perl executables, some of which may support fork, some not. Try changing
  3320. the name you call Perl by to C<perl_>, C<perl__>, and so on.
  3321.  
  3322. =item Unsupported function %s
  3323.  
  3324. (F) This machine doesn't implement the indicated function, apparently.
  3325. At least, Configure doesn't think so.
  3326.  
  3327. =item Unsupported socket function "%s" called
  3328.  
  3329. (F) Your machine doesn't support the Berkeley socket mechanism, or at
  3330. least that's what Configure thought.
  3331.  
  3332. =item Unterminated E<lt>E<gt> operator
  3333.  
  3334. (F) The lexer saw a left angle bracket in a place where it was expecting
  3335. a term, so it's looking for the corresponding right angle bracket, and not
  3336. finding it.  Chances are you left some needed parentheses out earlier in
  3337. the line, and you really meant a "less than".
  3338.  
  3339. =item Use of "$$<digit>" to mean "${$}<digit>" is deprecated
  3340.  
  3341. (D) Perl versions before 5.004 misinterpreted any type marker followed
  3342. by "$" and a digit.  For example, "$$0" was incorrectly taken to mean
  3343. "${$}0" instead of "${$0}".  This bug is (mostly) fixed in Perl 5.004.
  3344.  
  3345. However, the developers of Perl 5.004 could not fix this bug completely,
  3346. because at least two widely-used modules depend on the old meaning of
  3347. "$$0" in a string.  So Perl 5.004 still interprets "$$<digit>" in the
  3348. old (broken) way inside strings; but it generates this message as a
  3349. warning.  And in Perl 5.005, this special treatment will cease.
  3350.  
  3351. =item Use of $# is deprecated
  3352.  
  3353. (D) This was an ill-advised attempt to emulate a poorly defined B<awk> feature.
  3354. Use an explicit printf() or sprintf() instead.
  3355.  
  3356. =item Use of $* is deprecated
  3357.  
  3358. (D) This variable magically turned on multi-line pattern matching, both for
  3359. you and for any luckless subroutine that you happen to call.  You should
  3360. use the new C<//m> and C<//s> modifiers now to do that without the dangerous
  3361. action-at-a-distance effects of C<$*>.
  3362.  
  3363. =item Use of %s in printf format not supported
  3364.  
  3365. (F) You attempted to use a feature of printf that is accessible from
  3366. only C.  This usually means there's a better way to do it in Perl.
  3367.  
  3368. =item Use of bare E<lt>E<lt> to mean E<lt>E<lt>"" is deprecated
  3369.  
  3370. (D) You are now encouraged to use the explicitly quoted form if you
  3371. wish to use an empty line as the terminator of the here-document.
  3372.  
  3373. =item Use of implicit split to @_ is deprecated
  3374.  
  3375. (D) It makes a lot of work for the compiler when you clobber a
  3376. subroutine's argument list, so it's better if you assign the results of
  3377. a split() explicitly to an array (or list).
  3378.  
  3379. =item Use of inherited AUTOLOAD for non-method %s() is deprecated
  3380.  
  3381. (D) As an (ahem) accidental feature, C<AUTOLOAD> subroutines are looked
  3382. up as methods (using the C<@ISA> hierarchy) even when the subroutines to
  3383. be autoloaded were called as plain functions (e.g. C<Foo::bar()>), not
  3384. as methods (e.g. C<Foo-E<gt>bar()> or C<$obj-E<gt>bar()>).
  3385.  
  3386. This bug will be rectified in Perl 5.005, which will use method lookup
  3387. only for methods' C<AUTOLOAD>s.  However, there is a significant base
  3388. of existing code that may be using the old behavior.  So, as an
  3389. interim step, Perl 5.004 issues an optional warning when non-methods
  3390. use inherited C<AUTOLOAD>s.
  3391.  
  3392. The simple rule is:  Inheritance will not work when autoloading
  3393. non-methods.  The simple fix for old code is:  In any module that used to
  3394. depend on inheriting C<AUTOLOAD> for non-methods from a base class named
  3395. C<BaseClass>, execute C<*AUTOLOAD = \&BaseClass::AUTOLOAD> during startup.
  3396.  
  3397. In code that currently says C<use AutoLoader; @ISA = qw(AutoLoader);> you
  3398. should remove AutoLoader from @ISA and change C<use AutoLoader;> to
  3399. C<use AutoLoader 'AUTOLOAD';>.
  3400.  
  3401. =item Use of reserved word "%s" is deprecated
  3402.  
  3403. (D) The indicated bareword is a reserved word.  Future versions of perl
  3404. may use it as a keyword, so you're better off either explicitly quoting
  3405. the word in a manner appropriate for its context of use, or using a
  3406. different name altogether.  The warning can be suppressed for subroutine
  3407. names by either adding a C<&> prefix, or using a package qualifier,
  3408. e.g. C<&our()>, or C<Foo::our()>.
  3409.  
  3410. =item Use of %s is deprecated
  3411.  
  3412. (D) The construct indicated is no longer recommended for use, generally
  3413. because there's a better way to do it, and also because the old way has
  3414. bad side effects.
  3415.  
  3416. =item Use of uninitialized value
  3417.  
  3418. (W) An undefined value was used as if it were already defined.  It was
  3419. interpreted as a "" or a 0, but maybe it was a mistake.  To suppress this
  3420. warning assign an initial value to your variables.
  3421.  
  3422. =item Useless use of "re" pragma
  3423.  
  3424. (W) You did C<use re;> without any arguments.   That isn't very useful.
  3425.  
  3426. =item Useless use of %s in void context
  3427.  
  3428. (W) You did something without a side effect in a context that does nothing
  3429. with the return value, such as a statement that doesn't return a value
  3430. from a block, or the left side of a scalar comma operator.  Very often
  3431. this points not to stupidity on your part, but a failure of Perl to parse
  3432. your program the way you thought it would.  For example, you'd get this
  3433. if you mixed up your C precedence with Python precedence and said
  3434.  
  3435.     $one, $two = 1, 2;
  3436.  
  3437. when you meant to say
  3438.  
  3439.     ($one, $two) = (1, 2);
  3440.  
  3441. Another common error is to use ordinary parentheses to construct a list
  3442. reference when you should be using square or curly brackets, for
  3443. example, if you say
  3444.  
  3445.     $array = (1,2);
  3446.  
  3447. when you should have said
  3448.  
  3449.     $array = [1,2];
  3450.  
  3451. The square brackets explicitly turn a list value into a scalar value,
  3452. while parentheses do not.  So when a parenthesized list is evaluated in
  3453. a scalar context, the comma is treated like C's comma operator, which
  3454. throws away the left argument, which is not what you want.  See
  3455. L<perlref> for more on this.
  3456.  
  3457. =item untie attempted while %d inner references still exist
  3458.  
  3459. (W) A copy of the object returned from C<tie> (or C<tied>) was still
  3460. valid when C<untie> was called.
  3461.  
  3462. =item Value of %s can be "0"; test with defined()
  3463.  
  3464. (W) In a conditional expression, you used <HANDLE>, <*> (glob), C<each()>,
  3465. or C<readdir()> as a boolean value.  Each of these constructs can return a
  3466. value of "0"; that would make the conditional expression false, which is
  3467. probably not what you intended.  When using these constructs in conditional
  3468. expressions, test their values with the C<defined> operator.
  3469.  
  3470. =item Variable "%s" is not imported%s
  3471.  
  3472. (F) While "use strict" in effect, you referred to a global variable
  3473. that you apparently thought was imported from another module, because
  3474. something else of the same name (usually a subroutine) is exported
  3475. by that module.  It usually means you put the wrong funny character
  3476. on the front of your variable.
  3477.  
  3478. =item Variable "%s" may be unavailable
  3479.  
  3480. (W) An inner (nested) I<anonymous> subroutine is inside a I<named>
  3481. subroutine, and outside that is another subroutine; and the anonymous
  3482. (innermost) subroutine is referencing a lexical variable defined in
  3483. the outermost subroutine.  For example:
  3484.  
  3485.    sub outermost { my $a; sub middle { sub { $a } } }
  3486.  
  3487. If the anonymous subroutine is called or referenced (directly or
  3488. indirectly) from the outermost subroutine, it will share the variable
  3489. as you would expect.  But if the anonymous subroutine is called or
  3490. referenced when the outermost subroutine is not active, it will see
  3491. the value of the shared variable as it was before and during the
  3492. *first* call to the outermost subroutine, which is probably not what
  3493. you want.
  3494.  
  3495. In these circumstances, it is usually best to make the middle
  3496. subroutine anonymous, using the C<sub {}> syntax.  Perl has specific
  3497. support for shared variables in nested anonymous subroutines; a named
  3498. subroutine in between interferes with this feature.
  3499.  
  3500. =item Variable "%s" will not stay shared
  3501.  
  3502. (W) An inner (nested) I<named> subroutine is referencing a lexical
  3503. variable defined in an outer subroutine.
  3504.  
  3505. When the inner subroutine is called, it will probably see the value of
  3506. the outer subroutine's variable as it was before and during the
  3507. *first* call to the outer subroutine; in this case, after the first
  3508. call to the outer subroutine is complete, the inner and outer
  3509. subroutines will no longer share a common value for the variable.  In
  3510. other words, the variable will no longer be shared.
  3511.  
  3512. Furthermore, if the outer subroutine is anonymous and references a
  3513. lexical variable outside itself, then the outer and inner subroutines
  3514. will I<never> share the given variable.
  3515.  
  3516. This problem can usually be solved by making the inner subroutine
  3517. anonymous, using the C<sub {}> syntax.  When inner anonymous subs that
  3518. reference variables in outer subroutines are called or referenced,
  3519. they are automatically rebound to the current values of such
  3520. variables.
  3521.  
  3522. =item Variable syntax
  3523.  
  3524. (A) You've accidentally run your script through B<csh> instead
  3525. of Perl.  Check the #! line, or manually feed your script into
  3526. Perl yourself.
  3527.  
  3528. =item perl: warning: Setting locale failed.
  3529.  
  3530. (S) The whole warning message will look something like:
  3531.  
  3532.     perl: warning: Setting locale failed.
  3533.     perl: warning: Please check that your locale settings:
  3534.             LC_ALL = "En_US",
  3535.             LANG = (unset)
  3536.         are supported and installed on your system.
  3537.     perl: warning: Falling back to the standard locale ("C").
  3538.  
  3539. Exactly what were the failed locale settings varies.  In the above the
  3540. settings were that the LC_ALL was "En_US" and the LANG had no value.
  3541. This error means that Perl detected that you and/or your system
  3542. administrator have set up the so-called variable system but Perl could
  3543. not use those settings.  This was not dead serious, fortunately: there
  3544. is a "default locale" called "C" that Perl can and will use, the
  3545. script will be run.  Before you really fix the problem, however, you
  3546. will get the same error message each time you run Perl.  How to really
  3547. fix the problem can be found in L<perllocale> section B<LOCALE PROBLEMS>.
  3548.  
  3549. =item Warning: something's wrong
  3550.  
  3551. (W) You passed warn() an empty string (the equivalent of C<warn "">) or
  3552. you called it with no args and C<$_> was empty.
  3553.  
  3554. =item Warning: unable to close filehandle %s properly
  3555.  
  3556. (S) The implicit close() done by an open() got an error indication on the
  3557. close().  This usually indicates your file system ran out of disk space.
  3558.  
  3559. =item Warning: Use of "%s" without parentheses is ambiguous
  3560.  
  3561. (S) You wrote a unary operator followed by something that looks like a
  3562. binary operator that could also have been interpreted as a term or
  3563. unary operator.  For instance, if you know that the rand function
  3564. has a default argument of 1.0, and you write
  3565.  
  3566.     rand + 5;
  3567.  
  3568. you may THINK you wrote the same thing as
  3569.  
  3570.     rand() + 5;
  3571.  
  3572. but in actual fact, you got
  3573.  
  3574.     rand(+5);
  3575.  
  3576. So put in parentheses to say what you really mean.
  3577.  
  3578. =item Write on closed filehandle
  3579.  
  3580. (W) The filehandle you're writing to got itself closed sometime before now.
  3581. Check your logic flow.
  3582.  
  3583. =item X outside of string
  3584.  
  3585. (F) You had a pack template that specified a relative position before
  3586. the beginning of the string being unpacked.  See L<perlfunc/pack>.
  3587.  
  3588. =item x outside of string
  3589.  
  3590. (F) You had a pack template that specified a relative position after
  3591. the end of the string being unpacked.  See L<perlfunc/pack>.
  3592.  
  3593. =item Xsub "%s" called in sort
  3594.  
  3595. (F) The use of an external subroutine as a sort comparison is not yet supported.
  3596.  
  3597. =item Xsub called in sort
  3598.  
  3599. (F) The use of an external subroutine as a sort comparison is not yet supported.
  3600.  
  3601. =item You can't use C<-l> on a filehandle
  3602.  
  3603. (F) A filehandle represents an opened file, and when you opened the file it
  3604. already went past any symlink you are presumably trying to look for.
  3605. Use a filename instead.
  3606.  
  3607. =item YOU HAVEN'T DISABLED SET-ID SCRIPTS IN THE KERNEL YET!
  3608.  
  3609. (F) And you probably never will, because you probably don't have the
  3610. sources to your kernel, and your vendor probably doesn't give a rip
  3611. about what you want.  Your best bet is to use the wrapsuid script in
  3612. the eg directory to put a setuid C wrapper around your script.
  3613.  
  3614. =item You need to quote "%s"
  3615.  
  3616. (W) You assigned a bareword as a signal handler name.  Unfortunately, you
  3617. already have a subroutine of that name declared, which means that Perl 5
  3618. will try to call the subroutine when the assignment is executed, which is
  3619. probably not what you want.  (If it IS what you want, put an & in front.)
  3620.  
  3621. =item [gs]etsockopt() on closed fd
  3622.  
  3623. (W) You tried to get or set a socket option on a closed socket.
  3624. Did you forget to check the return value of your socket() call?
  3625. See L<perlfunc/getsockopt>.
  3626.  
  3627. =item \1 better written as $1
  3628.  
  3629. (W) Outside of patterns, backreferences live on as variables.  The use
  3630. of backslashes is grandfathered on the right-hand side of a
  3631. substitution, but stylistically it's better to use the variable form
  3632. because other Perl programmers will expect it, and it works better
  3633. if there are more than 9 backreferences.
  3634.  
  3635. =item '|' and 'E<lt>' may not both be specified on command line
  3636.  
  3637. (F) An error peculiar to VMS.  Perl does its own command line redirection, and
  3638. found that STDIN was a pipe, and that you also tried to redirect STDIN using
  3639. 'E<lt>'.  Only one STDIN stream to a customer, please.
  3640.  
  3641. =item '|' and 'E<gt>' may not both be specified on command line
  3642.  
  3643. (F) An error peculiar to VMS.  Perl does its own command line redirection, and
  3644. thinks you tried to redirect stdout both to a file and into a pipe to another
  3645. command.  You need to choose one or the other, though nothing's stopping you
  3646. from piping into a program or Perl script which 'splits' output into two
  3647. streams, such as
  3648.  
  3649.     open(OUT,">$ARGV[0]") or die "Can't write to $ARGV[0]: $!";
  3650.     while (<STDIN>) {
  3651.         print;
  3652.         print OUT;
  3653.     }
  3654.     close OUT;
  3655.  
  3656. =item Got an error from DosAllocMem
  3657.  
  3658. (P) An error peculiar to OS/2.  Most probably you're using an obsolete
  3659. version of Perl, and this should not happen anyway.
  3660.  
  3661. =item Malformed PERLLIB_PREFIX
  3662.  
  3663. (F) An error peculiar to OS/2.  PERLLIB_PREFIX should be of the form
  3664.  
  3665.     prefix1;prefix2
  3666.  
  3667. or
  3668.  
  3669.     prefix1 prefix2
  3670.  
  3671. with nonempty prefix1 and prefix2.  If C<prefix1> is indeed a prefix
  3672. of a builtin library search path, prefix2 is substituted.  The error
  3673. may appear if components are not found, or are too long.  See
  3674. "PERLLIB_PREFIX" in F<README.os2>.
  3675.  
  3676. =item PERL_SH_DIR too long
  3677.  
  3678. (F) An error peculiar to OS/2. PERL_SH_DIR is the directory to find the
  3679. C<sh>-shell in.  See "PERL_SH_DIR" in F<README.os2>.
  3680.  
  3681. =item Process terminated by SIG%s
  3682.  
  3683. (W) This is a standard message issued by OS/2 applications, while *nix
  3684. applications die in silence.  It is considered a feature of the OS/2
  3685. port.  One can easily disable this by appropriate sighandlers, see
  3686. L<perlipc/"Signals">.  See also "Process terminated by SIGTERM/SIGINT"
  3687. in F<README.os2>.
  3688.  
  3689. =back
  3690.  
  3691.