This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Perl 5.001
[perl5.git] / pod / perldiag.pod
CommitLineData
a0d0e21e
LW
1=head1 NAME
2
3perldiag - various Perl diagnostics
4
5=head1 DESCRIPTION
6
7These messages are classified as follows (listed in increasing order of
8desperation):
9
10 (W) A warning (optional).
11 (D) A deprecation (optional).
12 (S) A severe warning (mandatory).
13 (F) A fatal error (trappable).
14 (P) An internal error you should never see (trappable).
15 (X) A very fatal error (non-trappable).
16
748a9306
LW
17Optional warnings are enabled by using the B<-w> switch. Warnings may
18be captured by setting C<$^Q> to a reference to a routine that will be
19called on each warning instead of printing it. See L<perlvar>.
20Trappable errors may be trapped using the eval operator. See
21L<perlfunc/eval>.
a0d0e21e
LW
22
23Some of these messages are generic. Spots that vary are denoted with a %s,
24just as in a printf format. Note that some message start with a %s!
25The symbols C<"%-?@> sort before the letters, while C<[> and C<\> sort after.
26
27=over 4
28
29=item "my" variable %s can't be in a package
30
31(F) Lexically scoped variables aren't in a package, so it doesn't make sense
32to try to declare one with a package qualifier on the front. Use local()
33if you want to localize a package variable.
34
35=item "no" not allowed in expression
36
37(F) The "no" keyword is recognized and executed at compile time, and returns
38no useful value. See L<perlmod>.
39
40=item "use" not allowed in expression
41
42(F) The "use" keyword is recognized and executed at compile time, and returns
43no useful value. See L<perlmod>.
44
45=item % may only be used in unpack
46
47(F) You can't pack a string by supplying a checksum, since the
48checksumming process loses information, and you can't go the other
49way. See L<perlfunc/unpack>.
50
51=item %s (...) interpreted as function
52
53(W) You've run afoul of the rule that says that any list operator followed
54by parentheses turns into a function, with all the list operators arguments
55found inside the parens. See L<perlop/Terms and List Operators (Leftward)>.
56
57=item %s argument is not a HASH element
58
59(F) The argument to delete() or exists() must be a hash element, such as
60
61 $foo{$bar}
62 $ref->[12]->{"susie"}
63
64=item %s did not return a true value
65
66(F) A required (or used) file must return a true value to indicate that
67it compiled correctly and ran its initialization code correctly. It's
68traditional to end such a file with a "1;", though any true value would
69do. See L<perlfunc/require>.
70
71=item %s found where operator expected
72
73(S) The Perl lexer knows whether to expect a term or an operator. If it
74sees what it knows to be a term when it was expecting to see an operator,
75it gives you this warning. Usually it indicates that an operator or
76delimiter was omitted, such as a semicolon.
77
78=item %s had compilation errors.
79
80(F) The final summary message when a C<perl -c> fails.
81
82=item %s has too many errors.
83
84(F) The parser has given up trying to parse the program after 10 errors.
85Further error messages would likely be uninformative.
86
87=item %s matches null string many times
88
89(W) The pattern you've specified would be an infinite loop if the
90regular expression engine didn't specifically check for that. See L<perlre>.
91
92=item %s never introduced
93
94(S) The symbol in question was declared but somehow went out of scope
95before it could possibly have been used.
96
97=item %s syntax OK
98
99(F) The final summary message when a C<perl -c> succeeds.
100
101=item B<-P> not allowed for setuid/setgid script
102
103(F) The script would have to be opened by the C preprocessor by name,
104which provides a race condition that breaks security.
105
106=item C<-T> and C<-B> not implemented on filehandles
107
108(F) Perl can't peek at the stdio buffer of filehandles when it doesn't
109know about your kind of stdio. You'll have to use a filename instead.
110
111=item ?+* follows nothing in regexp
112
113(F) You started a regular expression with a quantifier. Backslash it
114if you meant it literally. See L<perlre>.
115
116=item @ outside of string
117
118(F) You had a pack template that specified an absolution position outside
119the string being unpacked. See L<perlfunc/pack>.
120
121=item accept() on closed fd
122
123(W) You tried to do an accept on a closed socket. Did you forget to check
124the return value of your socket() call? See L<perlfunc/accept>.
125
126=item Allocation too large: %lx
127
128(F) You can't allocate more than 64K on an MSDOS machine.
129
130=item Arg too short for msgsnd
131
132(F) msgsnd() requires a string at least as long as sizeof(long).
133
748a9306
LW
134=item Ambiguous use of %s resolved as %s
135
136(W)(S) You said something that may not be interpreted the way
137you thought. Normally it's pretty easy to disambiguate it by supplying
138a missing quote, operator, paren pair or declaration.
139
a0d0e21e
LW
140=item Args must match #! line
141
142(F) The setuid emulator requires that the arguments Perl was invoked
143with match the arguments specified on the #! line.
144
145=item Argument "%s" isn't numeric
146
147(W) The indicated string was fed as an argument to an operator that
148expected a numeric value instead. If you're fortunate the message
149will identify which operator was so unfortunate.
150
151=item Array @%s missing the @ in argument %d of %s()
152
153(D) Really old Perl let you omit the @ on array names in some spots. This
154is now heavily deprecated.
155
156=item assertion botched: %s
157
158(P) The malloc package that comes with Perl had an internal failure.
159
160=item Assertion failed: file "%s"
161
162(P) A general assertion failed. The file in question must be examined.
163
164=item Assignment to both a list and a scalar
165
166(F) If you assign to a conditional operator, the 2nd and 3rd arguments
167must either both be scalars or both be lists. Otherwise Perl won't
168know which context to supply to the right side.
169
170=item Attempt to free non-arena SV: 0x%lx
171
172(P) All SV objects are supposed to be allocated from arenas that will
173be garbage collected on exit. An SV was discovered to be outside any
174of those arenas.
175
176=item Attempt to free temp prematurely
177
178(W) Mortalized values are supposed to be freed by the free_tmps()
179routine. This indicates that something else is freeing the SV before
180the free_tmps() routine gets a chance, which means that the free_tmps()
181routine will be freeing an unreferenced scalar when it does try to free
182it.
183
184=item Attempt to free unreferenced glob pointers
185
186(P) The reference counts got screwed up on symbol aliases.
187
188=item Attempt to free unreferenced scalar
189
190(W) Perl went to decrement the reference count of a scalar to see if it
191would go to 0, and discovered that it had already gone to 0 earlier,
192and should have been freed, and in fact, probably was freed. This
193could indicate that SvREFCNT_dec() was called too many times, or that
194SvREFCNT_inc() was called too few times, or that the SV was mortalized
195when it shouldn't have been, or that memory has been corrupted.
196
197=item Bad arg length for %s, is %d, should be %d
198
199(F) You passed a buffer of the wrong size to one of msgctl(), semctl() or
200shmctl(). In C parlance, the correct sized are, respectively,
201S<sizeof(struct msqid_ds *)>, S<sizeof(struct semid_ds *)> and
202S<sizeof(struct shmid_ds *)>.
203
204=item Bad associative array
205
206(P) One of the internal hash routines was passed a null HV pointer.
207
208=item Bad filehandle: %s
209
210(F) A symbol was passed to something wanting a filehandle, but the symbol
211has no filehandle associated with it. Perhaps you didn't do an open(), or
212did it in another package.
213
214=item Bad free() ignored
215
216(S) An internal routine called free() on something that had never been
217malloc()ed in the first place.
218
219=item Bad name after %s::
220
221(F) You started to name a symbol by using a package prefix, and then didn't
222finish the symbol. In particular, you can't interpolate outside of quotes,
223so
224
225 $var = 'myvar';
226 $sym = mypack::$var;
227
228is not the same as
229
230 $var = 'myvar';
231 $sym = "mypack::$var";
232
233=item Bad symbol for array
234
235(P) An internal request asked to add an array entry to something that
236wasn't a symbol table entry.
237
238=item Bad symbol for filehandle
239
240(P) An internal request asked to add a filehandle entry to something that
241wasn't a symbol table entry.
242
243=item Bad symbol for hash
244
245(P) An internal request asked to add a hash entry to something that
246wasn't a symbol table entry.
247
248=item BEGIN failed--compilation aborted
249
250(F) An untrapped exception was raised while executing a BEGIN subroutine.
251Compilation stops immediately and the interpreter is exited.
252
253=item bind() on closed fd
254
255(W) You tried to do a bind on a closed socket. Did you forget to check
256the return value of your socket() call? See L<perlfunc/bind>.
257
258=item Callback called exit
259
260(F) A subroutine invoked from an external package via perl_call_sv()
261exited by calling exit.
262
263=item Can't "last" outside a block
264
265(F) A "last" statement was executed to break out of the current block,
266except that there's this itty bitty problem called there isn't a
267current block. Note that an "if" or "else" block doesn't count as a
268"loopish" block. You can usually double the curlies to get the same
269effect though, since the inner curlies will be considered a block
270that loops once. See L<perlfunc/last>.
271
272=item Can't "next" outside a block
273
274(F) A "next" statement was executed to reiterate the current block, but
275there isn't a current block. Note that an "if" or "else" block doesn't
276count as a "loopish" block. You can usually double the curlies to get
277the same effect though, since the inner curlies will be considered a block
278that loops once. See L<perlfunc/last>.
279
280=item Can't "redo" outside a block
281
282(F) A "redo" statement was executed to restart the current block, but
283there isn't a current block. Note that an "if" or "else" block doesn't
284count as a "loopish" block. You can usually double the curlies to get
285the same effect though, since the inner curlies will be considered a block
286that loops once. See L<perlfunc/last>.
287
288=item Can't bless non-reference value
289
290(F) Only hard references may be blessed. This is how Perl "enforces"
291encapsulation of objects. See L<perlobj>.
292
293=item Can't break at that line
294
295(S) A warning intended for while running within the debugger, indicating
296the line number specified wasn't the location of a statement that could
297be stopped at.
298
299=item Can't call method "%s" in empty package "%s"
300
301(F) You called a method correctly, and it correctly indicated a package
302functioning as a class, but that package doesn't have ANYTHING defined
303in it, let alone methods. See L<perlobj>.
304
305=item Can't call method "%s" on unblessed reference
306
307(F) A method call must know what package it's supposed to run in. It
308ordinarily finds this out from the object reference you supply, but
309you didn't supply an object reference in this case. A reference isn't
310an object reference until it has been blessed. See L<perlobj>.
311
312=item Can't call method "%s" without a package or object reference
313
314(F) You used the syntax of a method call, but the slot filled by the
315object reference or package name contains an expression that returns
316neither an object reference nor a package name. (Perhaps it's null?)
317Something like this will reproduce the error:
318
319 $BADREF = undef;
320 process $BADREF 1,2,3;
321 $BADREF->process(1,2,3);
322
323=item Can't chdir to %s
324
325(F) You called C<perl -x/foo/bar>, but C</foo/bar> is not a directory
326that you can chdir to, possibly because it doesn't exist.
327
328=item Can't coerce %s to integer in %s
329
330(F) Certain types of SVs, in particular real symbol table entries
331(type GLOB), can't be forced to stop being what they are. So you can't
332say things like:
333
334 *foo += 1;
335
336You CAN say
337
338 $foo = *foo;
339 $foo += 1;
340
341but then $foo no longer contains a glob.
342
343=item Can't coerce %s to number in %s
344
345(F) Certain types of SVs, in particular real symbol table entries
346(type GLOB), can't be forced to stop being what they are.
347
348=item Can't coerce %s to string in %s
349
350(F) Certain types of SVs, in particular real symbol table entries
351(type GLOB), can't be forced to stop being what they are.
352
353=item Can't create pipe mailbox
354
748a9306
LW
355(P) An error peculiar to VMS. The process is suffering from exhausted quotas
356or other plumbing problems.
a0d0e21e
LW
357
358=item Can't declare %s in my
359
360(F) Only scalar, array and hash variables may be declared as lexical variables.
361They must have ordinary identifiers as names.
362
363=item Can't do inplace edit on %s: %s
364
365(S) The creation of the new file failed for the indicated reason.
366
367=item Can't do inplace edit without backup
368
369(F) You're on a system such as MSDOS that gets confused if you try reading
370from a deleted (but still opened) file. You have to say B<-i>C<.bak>, or some
371such.
372
373=item Can't do inplace edit: %s > 14 characters
374
375(S) There isn't enough room in the filename to make a backup name for the file.
376
377=item Can't do inplace edit: %s is not a regular file
378
379(S) You tried to use the B<-i> switch on a special file, such as a file in
380/dev, or a FIFO. The file was ignored.
381
382=item Can't do setegid!
383
384(P) The setegid() call failed for some reason in the setuid emulator
385of suidperl.
386
387=item Can't do seteuid!
388
389(P) The setuid emulator of suidperl failed for some reason.
390
391=item Can't do setuid
392
393(F) This typically means that ordinary perl tried to exec suidperl to
394do setuid emulation, but couldn't exec it. It looks for a name of the
395form sperl5.000 in the same directory that the perl executable resides
396under the name perl5.000, typically /usr/local/bin on Unix machines.
397If the file is there, check the execute permissions. If it isn't, ask
398your sysadmin why he and/or she removed it.
399
400=item Can't do waitpid with flags
401
402(F) This machine doesn't have either waitpid() or wait4(), so only waitpid()
403without flags is emulated.
404
405=item Can't do {n,m} with n > m
406
407(F) Minima must be less than or equal to maxima. If you really want
408your regexp to match something 0 times, just put {0}. See L<perlre>.
409
410=item Can't emulate -%s on #! line
411
412(F) The #! line specifies a switch that doesn't make sense at this point.
413For example, it'd be kind of silly to put a B<-x> on the #! line.
414
415=item Can't exec "%s": %s
416
417(W) An system(), exec() or piped open call could not execute the named
418program for the indicated reason. Typical reasons include: the permissions
419were wrong on the file, the file wasn't found in C<$ENV{PATH}>, the
420executable in question was compiled for another architecture, or the
421#! line in a script points to an interpreter that can't be run for
422similar reasons. (Or maybe your system doesn't support #! at all.)
423
424=item Can't exec %s
425
426(F) Perl was trying to execute the indicated program for you because that's
427what the #! line said. If that's not what you wanted, you may need to
428mention "perl" on the #! line somewhere.
429
430=item Can't execute %s
431
432(F) You used the B<-S> switch, but the script to execute could not be found
433in the PATH, or at least not with the correct permissions.
434
435=item Can't find label %s
436
437(F) You said to goto a label that isn't mentioned anywhere that it's possible
438for us to go to. See L<perlfunc/goto>.
439
440=item Can't find string terminator %s anywhere before EOF
441
442(F) Perl strings can stretch over multiple lines. This message means that
443the closing delimiter was omitted. Since bracketed quotes count nesting
444levels, the following is missing its final parenthesis:
445
446 print q(The character '(' starts a side comment.)
447
448=item Can't fork
449
450(F) A fatal error occurred while trying to fork while opening a pipeline.
451
748a9306
LW
452=item Can't get filespec - stale stat buffer?
453
454(S) A warning peculiar to VMS. This arises because of the difference between
455access checks under VMS and under the Unix model Perl assumes. Under VMS,
456access checks are done by filename, rather than by bits in the stat buffer, so
457that ACLs and other protections can be taken into account. Unfortunately, Perl
458assumes that the stat buffer contains all the necessary information, and passes
459it, instead of the filespec, to the access checking routine. It will try to
460retrieve the filespec using the device name and FID present in the stat buffer,
461but this works only if you haven't made a subsequent call to the CRTL stat()
462routine, since the device name is overwritten with each call. If this warning
463appears, the name lookup failed, and the access checking routine gave up and
464returned FALSE, just to be conservative. (Note: The access checking routine
465knows about the Perl C<stat> operator and file tests, so you shouldn't ever
466see this warning in response to a Perl command; it arises only if some internal
467code takes stat buffers lightly.)
468
a0d0e21e
LW
469=item Can't get pipe mailbox device name
470
748a9306
LW
471(P) An error peculiar to VMS. After creating a mailbox to act as a pipe, Perl
472can't retrieve its name for later use.
a0d0e21e
LW
473
474=item Can't get SYSGEN parameter value for MAXBUF
475
748a9306
LW
476(P) An error peculiar to VMS. Perl asked $GETSYI how big you want your
477mailbox buffers to be, and didn't get an answer.
a0d0e21e
LW
478
479=item Can't goto subroutine outside a subroutine
480
481(F) The deeply magical "goto subroutine" call can only replace one subroutine
482call for another. It can't manufacture one out of whole cloth. In general
483you should only be calling it out of an AUTOLOAD routine anyway. See
484L<perlfunc/goto>.
485
748a9306
LW
486=item Can't localize lexical variable %s
487
488(F) You used local on a variable name that was previous declared as a
489lexical variable using "my". This is not allowed. If you want to
490localize a package variable of the same name, qualify it with the
491package name.
492
a0d0e21e
LW
493=item Can't locate %s in @INC
494
495(F) You said to do (or require, or use) a file that couldn't be found
496in any of the libraries mentioned in @INC. Perhaps you need to set
497the PERL5LIB environment variable to say where the extra library is,
498or maybe the script needs to add the library name to @INC. Or maybe
499you just misspelled the name of the file. See L<perlfunc/require>.
500
501=item Can't locate object method "%s" via package "%s"
502
503(F) You called a method correctly, and it correctly indicated a package
504functioning as a class, but that package doesn't define that particular
505method, nor does any of it's base classes. See L<perlobj>.
506
507=item Can't locate package %s for @%s::ISA
508
509(W) The @ISA array contained the name of another package that doesn't seem
510to exist.
511
512=item Can't mktemp()
513
514(F) The mktemp() routine failed for some reason while trying to process
515a B<-e> switch. Maybe your /tmp partition is full, or clobbered.
516
517=item Can't modify %s in %s
518
519(F) You aren't allowed to assign to the item indicated, or otherwise try to
520change it, such as with an autoincrement.
521
522=item Can't modify non-existent substring
523
524(P) The internal routine that does assignment to a substr() was handed
525a NULL.
526
527=item Can't msgrcv to readonly var
528
529(F) The target of a msgrcv must be modifiable in order to be used as a receive
530buffer.
531
532=item Can't open %s: %s
533
534(S) An inplace edit couldn't open the original file for the indicated reason.
535Usually this is because you don't have read permission for the file.
536
537=item Can't open bidirectional pipe
538
539(W) You tried to say C<open(CMD, "|cmd|")>, which is not supported. You can
540try any of several modules in the Perl library to do this, such as
541"open2.pl". Alternately, direct the pipe's output to a file using ">",
542and then read it in under a different file handle.
543
748a9306
LW
544=item Can't open error file %s as stderr
545
546(F) An error peculiar to VMS. Perl does its own command line redirection, and
547couldn't open the file specified after '2>' or '2>>' on the command line for
548writing.
549
550=item Can't open input file %s as stdin
551
552(F) An error peculiar to VMS. Perl does its own command line redirection, and
553couldn't open the file specified after '<' on the command line for reading.
554
555=item Can't open output file %s as stdout
556
557(F) An error peculiar to VMS. Perl does its own command line redirection, and
558couldn't open the file specified after '>' or '>>' on the command line for
559writing.
560
561=item Can't open output pipe (name: %s)
562
563(P) An error peculiar to VMS. Perl does its own command line redirection, and
564couldn't open the pipe into which to send data destined for stdout.
565
a0d0e21e
LW
566=item Can't open perl script "%s": %s
567
568(F) The script you specified can't be opened for the indicated reason.
569
570=item Can't rename %s to %s: %s, skipping file
571
572(S) The rename done by the B<-i> switch failed for some reason, probably because
573you don't have write permission to the directory.
574
748a9306
LW
575=item Can't reopen input pipe (name: %s) in binary mode
576
577(P) An error peculiar to VMS. Perl thought stdin was a pipe, and tried to
578reopen it to accept binary data. Alas, it failed.
579
a0d0e21e
LW
580=item Can't reswap uid and euid
581
582(P) The setreuid() call failed for some reason in the setuid emulator
583of suidperl.
584
585=item Can't return outside a subroutine
586
587(F) The return statement was executed in mainline code, that is, where
588there was no subroutine call to return out of. See L<perlsub>.
589
590=item Can't stat script "%s"
591
592(P) For some reason you can't fstat() the script even though you have
593it open already. Bizarre.
594
595=item Can't swap uid and euid
596
597(P) The setreuid() call failed for some reason in the setuid emulator
598of suidperl.
599
600=item Can't take log of %g
601
602(F) Logarithms are only defined on positive real numbers.
603
604=item Can't take sqrt of %g
605
606(F) For ordinary real numbers, you can't take the square root of a
607negative number. There's a Complex package available for Perl, though,
608if you really want to do that.
609
610=item Can't undef active subroutine
611
612(F) You can't undefine a routine that's currently running. You can,
613however, redefine it while it's running, and you can even undef the
614redefined subroutine while the old routine is running. Go figure.
615
616=item Can't unshift
617
618(F) You tried to unshift an "unreal" array that can't be unshifted, such
619as the main Perl stack.
620
621=item Can't upgrade that kind of scalar
622
623(P) The internal sv_upgrade routine adds "members" to an SV, making
624it into a more specialized kind of SV. The top several SV types are
625so specialized, however, that they cannot be interconverted. This
626message indicates that such a conversion was attempted.
627
628=item Can't upgrade to undef
629
630(P) The undefined SV is the bottom of the totem pole, in the scheme
631of upgradability. Upgrading to undef indicates an error in the
632code calling sv_upgrade.
633
a0d0e21e
LW
634=item Can't use %s for loop variable
635
636(F) Only a simple scalar variable may be used as a loop variable on a foreach.
637
638=item Can't use %s ref as %s ref
639
640(F) You've mixed up your reference types. You have to dereference a
641reference of the type needed. You can use the ref() function to
642test the type of the reference, if need be.
643
748a9306
LW
644=item Can't use \1 to mean $1 in expression
645
646(W) In an ordinary expression, backslash is a unary operator that creates
647a reference to its argument. The use of backslash to indicate a backreference
648to a matched substring is only valid as part of a regular expression pattern.
649Trying to do this in ordinary Perl code produces a value that prints
650out looking like SCALAR(0xdecaf). Use the $1 form instead.
651
652=item Can't use string ("%s") as %s ref while "strict refs" in use
a0d0e21e
LW
653
654(F) Only hard references are allowed by "strict refs". Symbolic references
655are disallowed. See L<perlref>.
656
657=item Can't use an undefined value as %s reference
658
659(F) A value used as either a hard reference or a symbolic reference must
660be a defined value. This helps to de-lurk some insidious errors.
661
662=item Can't use delimiter brackets within expression
663
664(F) The ${name} construct is for disambiguating identifiers in strings, not
665in ordinary code.
666
667=item Can't use global %s in "my"
668
669(F) You tried to declare a magical variable as a lexical variable. This is
670not allowed, because the magic can only be tied to one location (namely
671the global variable) and it would be incredibly confusing to have
672variables in your program that looked like magical variables but
673weren't.
674
748a9306
LW
675=item Can't use subscript on %s
676
677(F) The compiler tried to interpret a bracketed expression as a
678subscript. But to the left of the brackets was an expression that
679didn't look like an array reference, or anything else subscriptable.
680
a0d0e21e
LW
681=item Can't write to temp file for B<-e>: %s
682
683(F) The write routine failed for some reason while trying to process
684a B<-e> switch. Maybe your /tmp partition is full, or clobbered.
685
686=item Can't x= to readonly value
687
688(F) You tried to repeat a constant value (often the undefined value) with
689an assignment operator, which implies modifying the value itself.
690Perhaps you need to copy the value to a temporary, and repeat that.
691
692=item Cannot open temporary file
693
694(F) The create routine failed for some reaon while trying to process
695a B<-e> switch. Maybe your /tmp partition is full, or clobbered.
696
697=item chmod: mode argument is missing initial 0
698
699(W) A novice will sometimes say
700
701 chmod 777, $filename
702
703not realizing that 777 will be interpreted as a decimal number, equivalent
704to 01411. Octal constants are introduced with a leading 0 in Perl, as in C.
705
706=item Close on unopened file <%s>
707
708(W) You tried to close a filehandle that was never opened.
709
710=item connect() on closed fd
711
712(W) You tried to do a connect on a closed socket. Did you forget to check
713the return value of your socket() call? See L<perlfunc/connect>.
714
715=item Corrupt malloc ptr 0x%lx at 0x%lx
716
717(P) The malloc package that comes with Perl had an internal failure.
718
719=item corrupted regexp pointers
720
721(P) The regular expression engine got confused by what the regular
722expression compiler gave it.
723
724=item corrupted regexp program
725
726(P) The regular expression engine got passed a regexp program without
727a valid magic number.
728
729=item Deep recursion on subroutine "%s"
730
731(W) This subroutine has called itself (directly or indirectly) 100
732times than it has returned. This probably indicates an infinite
733recursion, unless you're writing strange benchmark programs, in which
734case it indicates something else.
735
748a9306 736=item Did you mean $ or @ instead of %?
a0d0e21e 737
748a9306
LW
738(W) You probably said %hash{$key} when you meant $hash{$key} or @hash{@keys}.
739On the other hand, maybe you just meant %hash and got carried away.
740
741=item Do you need to predeclare %s?
742
743(S) This is an educated guess made in conjunction with the message "%s
744found where operator expected". It often means a subroutine or module
745name is being referenced that hasn't been declared yet. This may be
746because of ordering problems in your file, or because of a missing
747"sub", "package", "require", or "use" statement. If you're
748referencing something that isn't defined yet, you don't actually have
749to define the subroutine or package before the current location. You
750can use an empty "sub foo;" or "package FOO;" to enter a "forward"
751declaration.
a0d0e21e
LW
752
753=item Don't know how to handle magic of type '%s'
754
755(P) The internal handling of magical variables has been cursed.
756
757=item do_study: out of memory
758
759(P) This should have been caught by safemalloc() instead.
760
761=item Duplicate free() ignored
762
763(S) An internal routine called free() on something that had already
764been freed.
765
766=item END failed--cleanup aborted
767
768(F) An untrapped exception was raised while executing an END subroutine.
769The interpreter is immediately exited.
770
748a9306
LW
771=item Error converting file specification %s
772
773(F) An error peculiar to VMS. Since Perl may have to deal with file
774specifications in either VMS or Unix syntax, it converts them to a
775single form when it must operate on them directly. Either you've
776passed an invalid file specification to Perl, or you've found a
777case the conversion routines don't handle. Drat.
778
a0d0e21e
LW
779=item Execution of %s aborted due to compilation errors.
780
781(F) The final summary message when a Perl compilation fails.
782
783=item Exiting eval via %s
784
785(W) You are exiting an eval by unconventional means, such as a
786a goto, or a loop control statement.
787
788=item Exiting subroutine via %s
789
790(W) You are exiting a subroutine by unconventional means, such as a
791a goto, or a loop control statement.
792
793=item Exiting substitution via %s
794
795(W) You are exiting a substitution by unconventional means, such as a
796a return, a goto, or a loop control statement.
797
748a9306 798=item Fatal VMS error at %s, line %d
a0d0e21e 799
748a9306
LW
800(P) An error peculiar to VMS. Something untoward happened in a VMS system
801service or RTL routine; Perl's exit status should provide more details. The
802filename in "at %s" and the line number in "line %d" tell you which section of
803the Perl source code is distressed.
a0d0e21e
LW
804
805=item fcntl is not implemented
806
807(F) Your machine apparently doesn't implement fcntl(). What is this, a
808PDP-11 or something?
809
810=item Filehandle %s never opened
811
812(W) An I/O operation was attempted on a filehandle that was never initialized.
813You need to do an open() or a socket() call, or call a constructor from
814the FileHandle package.
815
816=item Filehandle %s opened only for input
817
818(W) You tried to write on a read-only filehandle. If you
819intended it to be a read-write filehandle, you needed to open it with
820"+<" or "+>" or "+>>" instead of with "<" or nothing. If you only
821intended to write the file, use ">" or ">>". See L<perlfunc/open>.
822
823=item Filehandle only opened for input
824
825(W) You tried to write on a read-only filehandle. If you
826intended it to be a read-write filehandle, you needed to open it with
827"+<" or "+>" or "+>>" instead of with "<" or nothing. If you only
828intended to write the file, use ">" or ">>". See L<perlfunc/open>.
829
830=item Final $ should be \$ or $name
831
832(F) You must now decide whether the final $ in a string was meant to be
833a literal dollar sign, or was meant to introduce a variable name
834that happens to be missing. So you have to put either the backslash or
835the name.
836
837=item Final @ should be \@ or @name
838
839(F) You must now decide whether the final @ in a string was meant to be
840a literal "at" sign, or was meant to introduce a variable name
841that happens to be missing. So you have to put either the backslash or
842the name.
843
844=item Format %s redefined
845
846(W) You redefined a format. To suppress this warning, say
847
848 {
849 local $^W = 0;
850 eval "format NAME =...";
851 }
852
853=item Format not terminated
854
855(F) A format must be terminated by a line with a solitary dot. Perl got
856to the end of your file without finding such a line.
857
858=item Found = in conditional, should be ==
859
860(W) You said
861
862 if ($foo = 123)
863
864when you meant
865
866 if ($foo == 123)
867
868(or something like that).
869
870=item gdbm store returned %d, errno %d, key "%s"
871
872(S) A warning from the GDBM_File extension that a store failed.
873
874=item gethostent not implemented
875
876(F) Your C library apparently doesn't implement gethostent(), probably
877because if it did, it'd feel morally obligated to return every hostname
878on the Internet.
879
880=item get{sock,peer}name() on closed fd
881
882(W) You tried to get a socket or peer socket name on a closed socket.
883Did you forget to check the return value of your socket() call?
884
748a9306
LW
885=item getpwnam returned invalid UIC %#o for user "%s"
886
887(S) A warning peculiar to VMS. The call to C<sys$getuai> underlying the
888C<getpwnam> operator returned an invalid UIC.
889
890
a0d0e21e
LW
891=item Glob not terminated
892
893(F) The lexer saw a left angle bracket in a place where it was expecting
894a term, so it's looking for the corresponding right angle bracket, and not
895finding it. Chances are you left some needed parentheses out earlier in
896the line, and you really meant a "less than".
897
898=item Global symbol "%s" requires explicit package name
899
900(F) You've said "use strict vars", which indicates that all variables must
901either be lexically scoped (using "my"), or explicitly qualified to
902say which package the global variable is in (using "::").
903
904=item goto must have label
905
906(F) Unlike with "next" or "last", you're not allowed to goto an
907unspecified destination. See L<perlfunc/goto>.
908
909=item Had to create %s unexpectedly
910
911(S) A routine asked for a symbol from a symbol table that ought to have
912existed already, but for some reason it didn't, and had to be created on
913an emergency basis to prevent a core dump.
914
915=item Hash %%s missing the % in argument %d of %s()
916
917(D) Really old Perl let you omit the % on hash names in some spots. This
918is now heavily deprecated.
919
920=item Identifier "%s::%s" used only once: possible typo
921
922(W) Typographical errors often show up as unique identifiers. If you
923had a good reason for having a unique identifier, then just mention it
924again somehow to suppress the message.
925
926=item Illegal division by zero
927
928(F) You tried to divide a number by 0. Either something was wrong in your
929logic, or you need to put a conditional in to guard against meaningless input.
930
931=item Illegal modulus zero
932
933(F) You tried to divide a number by 0 to get the remainder. Most numbers
934don't take to this kindly.
935
936=item Illegal octal digit
937
938(F) You used an 8 or 9 in a octal number.
939
748a9306
LW
940=item Illegal octal digit ignored
941
942(W) You may have tried to use an 8 or 9 in a octal number. Interpretation
943of the octal number stopped before the 8 or 9.
944
a0d0e21e
LW
945=item Insecure dependency in %s
946
947(F) You tried to do something that the tainting mechanism didn't like.
948The tainting mechanism is turned on when you're running setuid or setgid,
949or when you specify B<-T> to turn it on explicitly. The tainting mechanism
950labels all data that's derived directly or indirectly from the user,
951who is considered to be unworthy of your trust. If any such data is
952used in a "dangerous" operation, you get this error. See L<perlsec>
953for more information.
954
955=item Insecure directory in %s
956
957(F) You can't use system(), exec(), or a piped open in a setuid or setgid
958script if $ENV{PATH} contains a directory that is writable by the world.
959See L<perlsec>.
960
961=item Insecure PATH
962
963(F) You can't use system(), exec(), or a piped open in a setuid or
964setgid script if $ENV{PATH} is derived from data supplied (or
965potentially supplied) by the user. The script must set the path to a
966known value, using trustworthy data. See L<perlsec>.
967
748a9306
LW
968=item Internal inconsistency in tracking vforks
969
970(S) A warning peculiar to VMS. Perl keeps track of the number
971of times you've called C<fork> and C<exec>, in order to determine
972whether the current call to C<exec> should be affect the current
973script or a subprocess (see L<perlvms/exec>). Somehow, this count
974has become scrambled, so Perl is making a guess and treating
975this C<exec> as a request to terminate the Perl script
976and execute the specified command.
977
a0d0e21e
LW
978=item internal disaster in regexp
979
980(P) Something went badly wrong in the regular expression parser.
981
982=item internal urp in regexp at /%s/
983
984(P) Something went badly awry in the regular expression parser.
985
986=item invalid [] range in regexp
987
988(F) The range specified in a character class had a minimum character
989greater than the maximum character. See L<perlre>.
990
991=item ioctl is not implemented
992
993(F) Your machine apparently doesn't implement ioctl(), which is pretty
994strange for a machine that supports C.
995
996=item junk on end of regexp
997
998(P) The regular expression parser is confused.
999
1000=item Label not found for "last %s"
1001
1002(F) You named a loop to break out of, but you're not currently in a
1003loop of that name, not even if you count where you were called from.
1004See L<perlfunc/last>.
1005
1006=item Label not found for "next %s"
1007
1008(F) You named a loop to continue, but you're not currently in a loop of
1009that name, not even if you count where you were called from. See
1010L<perlfunc/last>.
1011
1012=item Label not found for "redo %s"
1013
1014(F) You named a loop to restart, but you're not currently in a loop of
1015that name, not even if you count where you were called from. See
1016L<perlfunc/last>.
1017
1018=item listen() on closed fd
1019
1020(W) You tried to do a listen on a closed socket. Did you forget to check
1021the return value of your socket() call? See L<perlfunc/listen>.
1022
1023=item Literal @%s now requires backslash
1024
1025(F) It used to be that Perl would try to guess whether you wanted an
1026array interpolated or a literal @. It did this when the string was
1027first used at runtime. Now strings are parsed at compile time, and
1028ambiguous instances of @ must be disambiguated, either by putting a
1029backslash to indicate a literal, or by declaring (or using) the array
1030within the program before the string (lexically). (Someday it will simply
1031assume that an unbackslashed @ interpolates an array.)
1032
1033=item Method for operation %s not found in package %s during blessing
1034
1035(F) An attempt was made to specify an entry in an overloading table that
1036doesn't somehow point to a valid method. See L<perlovl>.
1037
1038=item Might be a runaway multi-line %s string starting on line %d
1039
1040(S) An advisory indicating that the previous error may have been caused
1041by a missing delimiter on a string or pattern, because it eventually
1042ended earlier on the current line.
1043
1044=item Misplaced _ in number
1045
1046(W) An underline in a decimal constant wasn't on a 3-digit boundary.
1047
1048=item Missing $ on loop variable
1049
1050(F) Apparently you've been programming in csh too much. Variables are always
1051mentioned with the $ in Perl, unlike in the shells, where it can vary from
1052one line to the next.
1053
1054=item Missing comma after first argument to %s function
1055
1056(F) While certain functions allow you to specify a filehandle or an
1057"indirect object" before the argument list, this ain't one of them.
1058
748a9306
LW
1059=item Missing operator before %s?
1060
1061(S) This is an educated guess made in conjunction with the message "%s
1062found where operator expected". Often the missing operator is a comma.
1063
a0d0e21e
LW
1064=item Missing right bracket
1065
1066(F) The lexer counted more opening curly brackets (braces) than closing ones.
1067As a general rule, you'll find it's missing near the place you were last
1068editing.
1069
1070=item Missing semicolon on previous line?
1071
1072(S) This is an educated guess made in conjunction with the message "%s
1073found where operator expected". Don't automatically put a semicolon on
1074the previous line just because you saw this message.
1075
1076=item Modification of a read-only value attempted
1077
1078(F) You tried, directly or indirectly, to change the value of a
1079constant. You didn't, of course, try "2 = 1", since the compiler
1080catches that. But an easy way to do the same thing is:
1081
1082 sub mod { $_[0] = 1 }
1083 mod(2);
1084
1085Another way is to assign to a substr() that's off the end of the string.
1086
1087=item Modification of non-creatable array value attempted, subscript %d
1088
1089(F) You tried to make an array value spring into existence, and the
1090subscript was probably negative, even counting from end of the array
1091backwards.
1092
1093=item Modification of non-creatable hash value attempted, subscript "%s"
1094
1095(F) You tried to make a hash value spring into existence, and it couldn't
1096be created for some peculiar reason.
1097
1098=item Module name must be constant
1099
1100(F) Only a bare module name is allowed as the first argument to a "use".
1101
1102=item msg%s not implemented
1103
1104(F) You don't have System V message IPC on your system.
1105
1106=item Multidimensional syntax %s not supported
1107
1108(W) Multidimensional arrays aren't written like $foo[1,2,3]. They're written
1109like $foo[1][2][3], as in C.
1110
1111=item Negative length
1112
1113(F) You tried to do a read/write/send/recv operation with a buffer length
1114that is less than 0. This is difficult to imagine.
1115
1116=item nested *?+ in regexp
1117
1118(F) You can't quantify a quantifier without intervening parens. So
1119things like ** or +* or ?* are illegal.
1120
1121Note, however, that the minimal matching quantifiers, *?, +? and ?? appear
1122to be nested quantifiers, but aren't. See L<perlre>.
1123
1124=item No #! line
1125
1126(F) The setuid emulator requires that scripts have a well-formed #! line
1127even on machines that don't support the #! construct.
1128
1129=item No %s allowed while running setuid
1130
1131(F) Certain operations are deemed to be too insecure for a setuid or setgid
1132script to even be allowed to attempt. Generally speaking there will be
1133another way to do what you want that is, if not secure, at least securable.
1134See L<perlsec>.
1135
1136=item No B<-e> allowed in setuid scripts
1137
1138(F) A setuid script can't be specified by the user.
1139
1140=item No comma allowed after %s
1141
1142(F) A list operator that has a filehandle or "indirect object" is not
1143allowed to have a comma between that and the following arguments.
1144Otherwise it'd be just another one of the arguments.
1145
748a9306
LW
1146=item No command into which to pipe on command line
1147
1148(F) An error peculiar to VMS. Perl handles its own command line redirection,
1149and found a '|' at the end of the command line, so it doesn't know whither you
1150want to pipe the output from this command.
1151
a0d0e21e
LW
1152=item No DB::DB routine defined
1153
1154(F) The currently executing code was compiled with the B<-d> switch,
1155but for some reason the perl5db.pl file (or some facsimile thereof)
1156didn't define a routine to be called at the beginning of each
1157statement. Which is odd, because the file should have been required
1158automatically, and should have blown up the require if it didn't parse
1159right.
1160
1161=item No dbm on this machine
1162
1163(P) This is counted as an internal error, because every machine should
1164supply dbm nowadays, since Perl comes with SDBM. See L<SDBM_File>.
1165
1166=item No DBsub routine
1167
1168(F) The currently executing code was compiled with the B<-d> switch,
1169but for some reason the perl5db.pl file (or some facsimile thereof)
1170didn't define a DB::sub routine to be called at the beginning of each
1171ordinary subroutine call.
1172
748a9306
LW
1173=item No error file after 2> or 2>> on command line
1174
1175(F) An error peculiar to VMS. Perl handles its own command line redirection,
1176and found a '2>' or a '2>>' on the command line, but can't find the name of the
1177file to which to write data destined for stderr.
1178
1179=item No input file after < on command line
1180
1181(F) An error peculiar to VMS. Perl handles its own command line redirection,
1182and found a '<' on the command line, but can't find the name of the file from
1183which to read data for stdin.
1184
1185=item No output file after > on command line
1186
1187(F) An error peculiar to VMS. Perl handles its own command line redirection,
1188and found a lone '>' at the end of the command line, so it doesn't know whither
1189you wanted to redirect stdout.
1190
1191=item No output file after > or >> on command line
1192
1193(F) An error peculiar to VMS. Perl handles its own command line redirection,
1194and found a '>' or a '>>' on the command line, but can't find the name of the
1195file to which to write data destined for stdout.
1196
a0d0e21e
LW
1197=item No Perl script found in input
1198
1199(F) You called C<perl -x>, but no line was found in the file beginning
1200with #! and containing the word "perl".
1201
1202=item No setregid available
1203
1204(F) Configure didn't find anything resembling the setregid() call for
1205your system.
1206
1207=item No setreuid available
1208
1209(F) Configure didn't find anything resembling the setreuid() call for
1210your system.
1211
1212=item No space allowed after B<-I>
1213
1214(F) The argument to B<-I> must follow the B<-I> immediately with no
1215intervening space.
1216
748a9306
LW
1217=item No such pipe open
1218
1219(P) An error peculiar to VMS. The internal routine my_pclose() tried to
1220close a pipe which hadn't been opened. This should have been caught earlier as
1221an attempt to close an unopened filehandle.
1222
a0d0e21e
LW
1223=item No such signal: SIG%s
1224
1225(W) You specified a signal name as a subscript to %SIG that was not recognized.
1226Say C<kill -l> in your shell to see the valid signal names on your system.
1227
1228=item Not a CODE reference
1229
1230(F) Perl was trying to evaluate a reference to a code value (that is, a
1231subroutine), but found a reference to something else instead. You can
1232use the ref() function to find out what kind of ref it really was.
1233See also L<perlref>.
1234
1235=item Not a format reference
1236
1237(F) I'm not sure how you managed to generate a reference to an anonymous
1238format, but this indicates you did, and that it didn't exist.
1239
1240=item Not a GLOB reference
1241
1242(F) Perl was trying to evaluate a reference to a "type glob" (that is,
1243a symbol table entry that looks like C<*foo>), but found a reference to
1244something else instead. You can use the ref() function to find out
1245what kind of ref it really was. See L<perlref>.
1246
1247=item Not a HASH reference
1248
1249(F) Perl was trying to evaluate a reference to a hash value, but
1250found a reference to something else instead. You can use the ref()
1251function to find out what kind of ref it really was. See L<perlref>.
1252
1253=item Not a perl script
1254
1255(F) The setuid emulator requires that scripts have a well-formed #! line
1256even on machines that don't support the #! construct. The line must
1257mention perl.
1258
1259=item Not a SCALAR reference
1260
1261(F) Perl was trying to evaluate a reference to a scalar value, but
1262found a reference to something else instead. You can use the ref()
1263function to find out what kind of ref it really was. See L<perlref>.
1264
1265=item Not a subroutine reference
1266
1267(F) Perl was trying to evaluate a reference to a code value (that is, a
1268subroutine), but found a reference to something else instead. You can
1269use the ref() function to find out what kind of ref it really was.
1270See also L<perlref>.
1271
1272=item Not a subroutine reference in %OVERLOAD
1273
1274(F) An attempt was made to specify an entry in an overloading table that
1275doesn't somehow point to a valid subroutine. See L<perlovl>.
1276
1277=item Not an ARRAY reference
1278
1279(F) Perl was trying to evaluate a reference to an array value, but
1280found a reference to something else instead. You can use the ref()
1281function to find out what kind of ref it really was. See L<perlref>.
1282
1283=item Not enough arguments for %s
1284
1285(F) The function requires more arguments than you specified.
1286
1287=item Not enough format arguments
1288
1289(W) A format specified more picture fields than the next line supplied.
1290See L<perlform>.
1291
1292=item Null filename used
1293
1294(F) You can't require the null filename, especially since on many machines
1295that means the current directory! See L<perlfunc/require>.
1296
1297=item NULL OP IN RUN
1298
1299(P) Some internal routine called run() with a null opcode pointer.
1300
1301=item Null realloc
1302
1303(P) An attempt was made to realloc NULL.
1304
1305=item NULL regexp argument
1306
1307(P) The internal pattern matching routines blew it bigtime.
1308
1309=item NULL regexp parameter
1310
1311(P) The internal pattern matching routines are out of their gourd.
1312
1313=item Odd number of elements in hash list
1314
1315(S) You specified an odd number of elements to a hash list, which is odd,
1316since hash lists come in key/value pairs.
1317
1318=item oops: oopsAV
1319
1320(S) An internal warning that the grammar is screwed up.
1321
1322=item oops: oopsHV
1323
1324(S) An internal warning that the grammar is screwed up.
1325
1326=item Operation `%s' %s: no method found,
1327
1328(F) An attempt was made to use an entry in an overloading table that
1329somehow no longer points to a valid method. See L<perlovl>.
1330
748a9306
LW
1331=item Operator or semicolon missing before %s
1332
1333(S) You used a variable or subroutine call where the parser was
1334expecting an operator. The parser has assumed you really meant
1335to use an operator, but this is highly likely to be incorrect.
1336For example, if you say "*foo *foo" it will be interpreted as
1337if you said "*foo * 'foo'".
1338
a0d0e21e
LW
1339=item Out of memory for yacc stack
1340
1341(F) The yacc parser wanted to grow its stack so it could continue parsing,
1342but realloc() wouldn't give it more memory, virtual or otherwise.
1343
1344=item Out of memory!
1345
1346(X) The malloc() function returned 0, indicating there was insufficient
1347remaining memory (or virtual memory) to satisfy the request.
1348
1349=item page overflow
1350
1351(W) A single call to write() produced more lines than can fit on a page.
1352See L<perlform>.
1353
1354=item panic: ck_grep
1355
1356(P) Failed an internal consistency check trying to compile a grep.
1357
1358=item panic: ck_split
1359
1360(P) Failed an internal consistency check trying to compile a split.
1361
1362=item panic: corrupt saved stack index
1363
1364(P) The savestack was requested to restore more localized values than there
1365are in the savestack.
1366
1367=item panic: die %s
1368
1369(P) We popped the context stack to an eval context, and then discovered
1370it wasn't an eval context.
1371
1372=item panic: do_match
1373
1374(P) The internal pp_match() routine was called with invalid operational data.
1375
1376=item panic: do_split
1377
1378(P) Something terrible went wrong in setting up for the split.
1379
1380=item panic: do_subst
1381
1382(P) The internal pp_subst() routine was called with invalid operational data.
1383
1384=item panic: do_trans
1385
1386(P) The internal do_trans() routine was called with invalid operational data.
1387
1388=item panic: goto
1389
1390(P) We popped the context stack to a context with the specified label,
1391and then discovered it wasn't a context we know how to do a goto in.
1392
1393=item panic: INTERPCASEMOD
1394
1395(P) The lexer got into a bad state at a case modifier.
1396
1397=item panic: INTERPCONCAT
1398
1399(P) The lexer got into a bad state parsing a string with brackets.
1400
1401=item panic: last
1402
1403(P) We popped the context stack to a block context, and then discovered
1404it wasn't a block context.
1405
1406=item panic: leave_scope clearsv
1407
1408(P) A writable lexical variable became readonly somehow within the scope.
1409
1410=item panic: leave_scope inconsistency
1411
1412(P) The savestack probably got out of sync. At least, there was an
1413invalid enum on the top of it.
1414
1415=item panic: malloc
1416
1417(P) Something requested a negative number of bytes of malloc.
1418
1419=item panic: mapstart
1420
1421(P) The compiler is screwed up with respect to the map() function.
1422
1423=item panic: null array
1424
1425(P) One of the internal array routines was passed a null AV pointer.
1426
1427=item panic: pad_alloc
1428
1429(P) The compiler got confused about which scratch pad it was allocating
1430and freeing temporaries and lexicals from.
1431
1432=item panic: pad_free curpad
1433
1434(P) The compiler got confused about which scratch pad it was allocating
1435and freeing temporaries and lexicals from.
1436
1437=item panic: pad_free po
1438
1439(P) An invalid scratch pad offset was detected internally.
1440
1441=item panic: pad_reset curpad
1442
1443(P) The compiler got confused about which scratch pad it was allocating
1444and freeing temporaries and lexicals from.
1445
1446=item panic: pad_sv po
1447
1448(P) An invalid scratch pad offset was detected internally.
1449
1450=item panic: pad_swipe curpad
1451
1452(P) The compiler got confused about which scratch pad it was allocating
1453and freeing temporaries and lexicals from.
1454
1455=item panic: pad_swipe po
1456
1457(P) An invalid scratch pad offset was detected internally.
1458
1459=item panic: pp_iter
1460
1461(P) The foreach iterator got called in a non-loop context frame.
1462
1463=item panic: realloc
1464
1465(P) Something requested a negative number of bytes of realloc.
1466
1467=item panic: restartop
1468
1469(P) Some internal routine requested a goto (or something like it), and
1470didn't supply the destination.
1471
1472=item panic: return
1473
1474(P) We popped the context stack to a subroutine or eval context, and
1475then discovered it wasn't a subroutine or eval context.
1476
1477=item panic: scan_num
1478
1479(P) scan_num() got called on something that wasn't a number.
1480
1481=item panic: sv_insert
1482
1483(P) The sv_insert() routine was told to remove more string than there
1484was string.
1485
1486=item panic: top_env
1487
1488(P) The compiler attempted to do a goto, or something weird like that.
1489
1490=item panic: yylex
1491
1492(P) The lexer got into a bad state while processing a case modifier.
1493
1494=item Parens missing around "%s" list
1495
1496(W) You said something like
1497
1498 my $foo, $bar = @_;
1499
1500when you meant
1501
1502 my ($foo, $bar) = @_;
1503
1504Remember that "my" and "local" bind closer than comma.
1505
1506=item Perl %3.3f required--this is only version %s, stopped
1507
1508(F) The module in question uses features of a version of Perl more recent
1509than the currently running version. How long has it been since you upgraded,
1510anyway? See L<perlfunc/require>.
1511
1512=item Permission denied
1513
1514(F) The setuid emulator in suidperl decided you were up to no good.
1515
748a9306
LW
1516=item pid %d not a child
1517
1518(W) A warning peculiar to VMS. Waitpid() was asked to wait for a process which
1519isn't a subprocess of the current process. While this is fine from VMS'
1520perspective, it's probably not what you intended.
1521
a0d0e21e
LW
1522=item POSIX getpgrp can't take an argument
1523
1524(F) Your C compiler uses POSIX getpgrp(), which takes no argument, unlike
1525the BSD version, which takes a pid.
1526
1527=item Possible memory corruption: %s overflowed 3rd argument
1528
1529(F) An ioctl() or fcntl() returned more than Perl was bargaining for.
1530Perl guesses a reasonable buffer size, but puts a sentinel byte at the
1531end of the buffer just in case. This sentinel byte got clobbered, and
1532Perl assumes that memory is now corrupted. See L<perlfunc/ioctl>.
1533
1534=item Precedence problem: open %s should be open(%s)
1535
1536(S) The old irregular construct
1537
1538 open FOO || die;
1539
1540is now misinterpreted as
1541
1542 open(FOO || die);
1543
1544because of the strict regularization of Perl 5's grammar into unary and
1545list operators. (The old open was a little of both.) You must put
1546parens around the filehandle, or use the new "or" operator instead of "||".
1547
1548=item print on closed filehandle %s
1549
1550(W) The filehandle you're printing on got itself closed sometime before now.
1551Check your logic flow.
1552
1553=item printf on closed filehandle %s
1554
1555(W) The filehandle you're writing to got itself closed sometime before now.
1556Check your logic flow.
1557
1558=item Probable precedence problem on %s
1559
1560(W) The compiler found a bare word where it expected a conditional,
1561which often indicates that an || or && was parsed as part of the
1562last argument of the previous construct, for example:
1563
1564 open FOO || die;
1565
1566=item Read on closed filehandle <%s>
1567
1568(W) The filehandle you're reading from got itself closed sometime before now.
1569Check your logic flow.
1570
1571=item Reallocation too large: %lx
1572
1573(F) You can't allocate more than 64K on an MSDOS machine.
1574
1575=item Recompile perl with B<-D>DEBUGGING to use B<-D> switch
1576
1577(F) You can't use the B<-D> option unless the code to produce the
1578desired output is compiled into Perl, which entails some overhead,
1579which is why it's currently left out of your copy.
1580
1581=item Recursive inheritance detected
1582
1583(F) More than 100 levels of inheritance were used. Probably indicates
1584an unintended loop in your inheritance hierarchy.
1585
1586=item Reference miscount in sv_replace()
1587
1588(W) The internal sv_replace() function was handed a new SV with a
1589reference count of other than 1.
1590
1591=item regexp memory corruption
1592
1593(P) The regular expression engine got confused by what the regular
1594expression compiler gave it.
1595
1596=item regexp out of space
1597
1598(P) A "can't happen" error, because safemalloc() should have caught it earlier.
1599
1600=item regexp too big
1601
1602(F) The current implementation of regular expression uses shorts as
1603address offsets within a string. Unfortunately this means that if
1604the regular expression compiles to longer than 32767, it'll blow up.
1605Usually when you want a regular expression this big, there is a better
1606way to do it with multiple statements. See L<perlre>.
1607
1608=item Reversed %s= operator
1609
1610(W) You wrote your assignment operator backwards. The = must always
1611comes last, to avoid ambiguity with subsequent unary operators.
1612
1613=item Runaway format
1614
1615(F) Your format contained the ~~ repeat-until-blank sequence, but it
1616produced 200 lines at once, and the 200th line looked exactly like the
1617199th line. Apparently you didn't arrange for the arguments to exhaust
1618themselves, either by using ^ instead of @ (for scalar variables), or by
1619shifting or popping (for array variables). See L<perlform>.
1620
1621=item Scalar value @%s[%s] better written as $%s[%s]
1622
1623(W) You've used an array slice (indicated by @) to select a single value of
1624an array. Generally it's better to ask for a scalar value (indicated by $).
1625The difference is that $foo[&bar] always behaves like a scalar, both when
1626assigning to it and when evaluating its argument, while @foo[&bar] behaves
1627like a list when you assign to it, and provides a list context to its
1628subscript, which can do weird things if you're only expecting one subscript.
1629
748a9306
LW
1630On the other hand, if you were actually hoping to treat the array
1631element as a list, you need to look into how references work, since
1632Perl will not magically convert between scalars and lists for you. See
1633L<perlref>.
1634
a0d0e21e
LW
1635=item Script is not setuid/setgid in suidperl
1636
1637(F) Oddly, the suidperl program was invoked on a script with its setuid
1638or setgid bit set. This doesn't make much sense.
1639
1640=item Search pattern not terminated
1641
1642(F) The lexer couldn't find the final delimiter of a // or m{}
1643construct. Remember that bracketing delimiters count nesting level.
1644
1645=item seek() on unopened file
1646
1647(W) You tried to use the seek() function on a filehandle that was either
1648never opened or has been closed since.
1649
1650=item select not implemented
1651
1652(F) This machine doesn't implement the select() system call.
1653
1654=item sem%s not implemented
1655
1656(F) You don't have System V semaphore IPC on your system.
1657
1658=item semi-panic: attempt to dup freed string
1659
1660(S) The internal newSVsv() routine was called to duplicate a scalar
1661that had previously been marked as free.
1662
1663=item Semicolon seems to be missing
1664
1665(W) A nearby syntax error was probably caused by a missing semicolon,
1666or possibly some other missing operator, such as a comma.
1667
1668=item Send on closed socket
1669
1670(W) The filehandle you're sending to got itself closed sometime before now.
1671Check your logic flow.
1672
1673=item Sequence (?#... not terminated
1674
1675(F) A regular expression comment must be terminated by a closing
1676parenthesis. Embedded parens aren't allowed. See L<perlre>.
1677
1678=item Sequence (?%s...) not implemented
1679
1680(F) A proposed regular expression extension has the character reserved
1681but has not yet been written. See L<perlre>.
1682
1683=item Sequence (?%s...) not recognized
1684
1685(F) You used a regular expression extension that doesn't make sense.
1686See L<perlre>.
1687
1688=item setegid() not implemented
1689
1690(F) You tried to assign to $), and your operating system doesn't support
1691the setegid() system call (or equivalent), or at least Configure didn't
1692think so.
1693
1694=item seteuid() not implemented
1695
1696(F) You tried to assign to $>, and your operating system doesn't support
1697the seteuid() system call (or equivalent), or at least Configure didn't
1698think so.
1699
1700=item setrgid() not implemented
1701
1702(F) You tried to assign to $(, and your operating system doesn't support
1703the setrgid() system call (or equivalent), or at least Configure didn't
1704think so.
1705
1706=item setruid() not implemented
1707
1708(F) You tried to assign to $<, and your operating system doesn't support
1709the setruid() system call (or equivalent), or at least Configure didn't
1710think so.
1711
1712=item Setuid/gid script is writable by world
1713
1714(F) The setuid emulator won't run a script that is writable by the world,
1715because the world might have written on it already.
1716
1717=item shm%s not implemented
1718
1719(F) You don't have System V shared memory IPC on your system.
1720
1721=item shutdown() on closed fd
1722
1723(W) You tried to do a shutdown on a closed socket. Seems a bit superfluous.
1724
1725=item SIG%s handler "%s" not defined.
1726
1727(W) The signal handler named in %SIG doesn't, in fact, exist. Perhaps you
1728put it into the wrong package?
1729
1730=item sort is now a reserved word
1731
1732(F) An ancient error message that almost nobody ever runs into anymore.
1733But before sort was a keyword, people sometimes used it as a filehandle.
1734
1735=item Sort subroutine didn't return a numeric value
1736
1737(F) A sort comparison routine must return a number. You probably blew
1738it by not using C<E<lt>=E<gt> or C<cmp>, or by not using them correctly.
1739See L<perlfunc/sort>.
1740
1741=item Sort subroutine didn't return single value
1742
1743(F) A sort comparison subroutine may not return a list value with more
1744or less than one element. See L<perlfunc/sort>.
1745
1746=item Split loop
1747
1748(P) The split was looping infinitely. (Obviously, a split shouldn't iterate
1749more times than there are characters of input, which is what happened.)
1750See L<perlfunc/split>.
1751
1752=item Stat on unopened file <%s>
1753
1754(W) You tried to use the stat() function (or an equivalent file test)
1755on a filehandle that was either never opened or has been closed since.
1756
1757=item Statement unlikely to be reached
1758
1759(W) You did an exec() with some statement after it other than a die().
1760This is almost always an error, because exec() never returns unless
1761there was a failure. You probably wanted to use system() instead,
1762which does return. To suppress this warning, put the exec() in a block
1763by itself.
1764
1765=item Subroutine %s redefined
1766
1767(W) You redefined a subroutine. To suppress this warning, say
1768
1769 {
1770 local $^W = 0;
1771 eval "sub name { ... }";
1772 }
1773
1774=item Substitution loop
1775
1776(P) The substitution was looping infinitely. (Obviously, a
1777substitution shouldn't iterate more times than there are characters of
1778input, which is what happened.) See the discussion of substitution in
1779L<perlop/"Quote and Quotelike Operators">.
1780
1781=item Substitution pattern not terminated
1782
1783(F) The lexer couldn't find the interior delimiter of a s/// or s{}{}
1784construct. Remember that bracketing delimiters count nesting level.
1785
1786=item Substitution replacement not terminated
1787
1788(F) The lexer couldn't find the final delimiter of a s/// or s{}{}
1789construct. Remember that bracketing delimiters count nesting level.
1790
1791=item substr outside of string
1792
1793(W) You tried to reference a substr() that pointed outside of a string.
1794That is, the absolute value of the offset was larger than the length of
1795the string. See L<perlfunc/substr>.
1796
1797=item suidperl is no longer needed since...
1798
1799(F) Your Perl was compiled with B<-D>SETUID_SCRIPTS_ARE_SECURE_NOW, but a
1800version of the setuid emulator somehow got run anyway.
1801
1802=item syntax error
1803
1804(F) Probably means you had a syntax error. Common reasons include:
1805
1806 A keyword is misspelled.
1807 A semicolon is missing.
1808 A comma is missing.
1809 An opening or closing parenthesis is missing.
1810 An opening or closing brace is missing.
1811 A closing quote is missing.
1812
1813Often there will be another error message associated with the syntax
1814error giving more information. (Sometimes it helps to turn on B<-w>.)
1815The error message itself often tells you where it was in the line when
1816it decided to give up. Sometimes the actual error is several tokens
1817before this, since Perl is good at understanding random input.
1818Occasionally the line number may be misleading, and once in a blue moon
1819the only way to figure out what's triggering the error is to call
1820C<perl -c> repeatedly, chopping away half the program each time to see
1821if the error went away. Sort of the cybernetic version of S<20 questions>.
1822
1823=item System V IPC is not implemented on this machine
1824
1825(F) You tried to do something with a function beginning with "sem", "shm"
1826or "msg". See L<perlfunc/semctl>, for example.
1827
1828=item Syswrite on closed filehandle
1829
1830(W) The filehandle you're writing to got itself closed sometime before now.
1831Check your logic flow.
1832
1833=item tell() on unopened file
1834
1835(W) You tried to use the tell() function on a filehandle that was either
1836never opened or has been closed since.
1837
1838=item Test on unopened file <%s>
1839
1840(W) You tried to invoke a file test operator on a filehandle that isn't
1841open. Check your logic. See also L<perlfunc/-X>.
1842
1843=item That use of $[ is unsupported
1844
1845(F) Assignment to $[ is now strictly circumscribed, and interpreted as
1846a compiler directive. You may only say one of
1847
1848 $[ = 0;
1849 $[ = 1;
1850 ...
1851 local $[ = 0;
1852 local $[ = 1;
1853 ...
1854
1855This is to prevent the problem of one module changing the array base
1856out from under another module inadvertently. See L<perlvar/$[>.
1857
1858=item The %s function is unimplemented
1859
1860The function indicated isn't implemented on this architecture, according
1861to the probings of Configure.
1862
1863=item The crypt() function is unimplemented due to excessive paranoia.
1864
1865(F) Configure couldn't find the crypt() function on your machine,
1866probably because your vendor didn't supply it, probably because they
1867think the U.S. Govermnment thinks it's a secret, or at least that they
1868will continue to pretend that it is. And if you quote me on that, I
1869will deny it.
1870
1871=item The stat preceding C<-l _> wasn't an lstat
1872
1873(F) It makes no sense to test the current stat buffer for symbolic linkhood
1874if the last stat that wrote to the stat buffer already went past
1875the symlink to get to the real file. Use an actual filename instead.
1876
1877=item times not implemented
1878
1879(F) Your version of the C library apparently doesn't do times(). I suspect
1880you're not running on Unix.
1881
1882=item Too few args to syscall
1883
1884(F) There has to be at least one argument to syscall() to specify the
1885system call to call, silly dilly.
1886
1887=item Too many args to syscall
1888
1889(F) Perl only supports a maximum of 14 args to syscall().
1890
1891=item Too many arguments for %s
1892
1893(F) The function requires fewer arguments than you specified.
1894
1895=item trailing \ in regexp
1896
1897(F) The regular expression ends with an unbackslashed backslash. Backslash
1898it. See L<perlre>.
1899
1900=item Translation pattern not terminated
1901
1902(F) The lexer couldn't find the interior delimiter of a tr/// or tr[][]
1903construct.
1904
1905=item Translation replacement not terminated
1906
1907(F) The lexer couldn't find the final delimiter of a tr/// or tr[][]
1908construct.
1909
1910=item truncate not implemented
1911
1912(F) Your machine doesn't implement a file truncation mechanism that
1913Configure knows about.
1914
1915=item Type of arg %d to %s must be %s (not %s)
1916
1917(F) This function requires the argument in that position to be of a
1918certain type. Arrays must be @NAME or @{EXPR}. Hashes must be
1919%NAME or %{EXPR}. No implicit dereferencing is allowed--use the
1920{EXPR} forms as an explicit dereference. See L<perlref>.
1921
1922=item umask: argument is missing initial 0
1923
1924(W) A umask of 222 is incorrect. It should be 0222, since octal literals
1925always start with 0 in Perl, as in C.
1926
1927=item Unbalanced context: %d more PUSHes than POPs
1928
1929(W) The exit code detected an internal inconsistency in how many execution
1930contexts were entered and left.
1931
1932=item Unbalanced saves: %d more saves than restores
1933
1934(W) The exit code detected an internal inconsistency in how many
1935values were temporarily localized.
1936
1937=item Unbalanced scopes: %d more ENTERs than LEAVEs
1938
1939(W) The exit code detected an internal inconsistency in how many blocks
1940were entered and left.
1941
1942=item Unbalanced tmps: %d more allocs than frees
1943
1944(W) The exit code detected an internal inconsistency in how many mortal
1945scalars were allocated and freed.
1946
1947=item Undefined format "%s" called
1948
1949(F) The format indicated doesn't seem to exist. Perhaps it's really in
1950another package? See L<perlform>.
1951
1952=item Undefined sort subroutine "%s" called
1953
1954(F) The sort comparison routine specified doesn't seem to exist. Perhaps
1955it's in a different package? See L<perlfunc/sort>.
1956
1957=item Undefined subroutine &%s called
1958
1959(F) The subroutine indicated hasn't been defined, or if it was, it
1960has since been undefined.
1961
1962=item Undefined subroutine called
1963
1964(F) The anonymous subroutine you're trying to call hasn't been defined,
1965or if it was, it has since been undefined.
1966
1967=item Undefined subroutine in sort
1968
1969(F) The sort comparison routine specified is declared but doesn't seem to
1970have been defined yet. See L<perlfunc/sort>.
1971
1972=item unexec of %s into %s failed!
1973
1974(F) The unexec() routine failed for some reason. See your local FSF
1975representative, who probably put it there in the first place.
1976
1977=item Unknown BYTEORDER
1978
1979(F) There are no byteswapping functions for a machine with this byte order.
1980
1981=item unmatched () in regexp
1982
1983(F) Unbackslashed parentheses must always be balanced in regular
1984expressions. If you're a vi user, the % key is valuable for finding
1985the matching paren. See L<perlre>.
1986
1987=item Unmatched right bracket
1988
1989(F) The lexer counted more closing curly brackets (braces) than opening
1990ones, so you're probably missing an opening bracket. As a general
1991rule, you'll find the missing one (so to speak) near the place you were
1992last editing.
1993
1994=item unmatched [] in regexp
1995
1996(F) The brackets around a character class must match. If you wish to
1997include a closing bracket in a character class, backslash it or put it first.
1998See L<perlre>.
1999
2000=item Unquoted string "%s" may clash with future reserved word
2001
2002(W) You used a bare word that might someday be claimed as a reserved word.
2003It's best to put such a word in quotes, or capitalize it somehow, or insert
2004an underbar into it. You might also declare it as a subroutine.
2005
2006=item Unrecognized character \%03o ignored
2007
2008(S) A garbage character was found in the input, and ignored, in case it's
2009a weird control character on an EBCDIC machine, or some such.
2010
2011=item Unrecognized signal name "%s"
2012
2013(F) You specified a signal name to the kill() function that was not recognized.
2014Say C<kill -l> in your shell to see the valid signal names on your system.
2015
2016=item Unrecognized switch: -%s
2017
2018(F) You specified an illegal option to Perl. Don't do that.
2019(If you think you didn't do that, check the #! line to see if it's
2020supplying the bad switch on your behalf.)
2021
2022=item Unsuccessful %s on filename containing newline
2023
2024(W) A file operation was attempted on a filename, and that operation
2025failed, PROBABLY because the filename contained a newline, PROBABLY
2026because you forgot to chop() or chomp() it off. See L<perlfunc/chop>.
2027
2028=item Unsupported directory function "%s" called
2029
2030(F) Your machine doesn't support opendir() and readdir().
2031
2032=item Unsupported function %s
2033
2034(F) This machines doesn't implement the indicated function, apparently.
2035At least, Configure doesn't think so.
2036
2037=item Unsupported socket function "%s" called
2038
2039(F) Your machine doesn't support the Berkeley socket mechanism, or at
2040least that's what Configure thought.
2041
2042=item Unterminated <> operator
2043
2044(F) The lexer saw a left angle bracket in a place where it was expecting
2045a term, so it's looking for the corresponding right angle bracket, and not
2046finding it. Chances are you left some needed parentheses out earlier in
2047the line, and you really meant a "less than".
2048
2049=item Use of $# is deprecated
2050
2051(D) This was an ill-advised attempt to emulate a poorly defined awk feature.
2052Use an explicit printf() or sprintf() instead.
2053
2054=item Use of $* is deprecated
2055
2056(D) This variable magically turned on multiline pattern matching, both for
2057you and for any luckless subroutine that you happen to call. You should
2058use the new C<//m> and C<//s> modifiers now to do that without the dangerous
2059action-at-a-distance effects of C<$*>.
2060
748a9306
LW
2061=item Use of %s in printf format not supported
2062
2063(F) You attempted to use a feature of printf that is accessible only
2064from C. This usually means there's a better way to do it in Perl.
2065
a0d0e21e
LW
2066=item Use of %s is deprecated
2067
2068(D) The construct indicated is no longer recommended for use, generally
2069because there's a better way to do it, and also because the old way has
2070bad side effects.
2071
2072=item Use of implicit split to @_ is deprecated
2073
2074(D) It makes a lot of work for the compiler when you clobber a
2075subroutine's argument list, so it's better if you assign the results of
2076a split() explicitly to an array (or list).
2077
2078=item Use of uninitialized value
2079
2080(W) An undefined value was used as if it were already defined. It was
2081interpreted as a "" or a 0, but maybe it was a mistake. To suppress this
2082warning assign an initial value to your variables.
2083
2084=item Useless use of %s in void context
2085
2086(W) You did something without a side effect in a context that does nothing
2087with the return value, such as a statement that doesn't return a value
2088from a block, or the left side of a scalar comma operator. Very often
2089this points not to stupidity on your part, but a failure of Perl to parse
2090your program the way you thought it would. For example, you'd get this
2091if you mixed up your C precedence with Python precedence and said
2092
2093 $one, $two = 1, 2;
2094
2095when you meant to say
2096
2097 ($one, $two) = (1, 2);
2098
748a9306
LW
2099Another common error is to use ordinary parentheses to construct a list
2100reference when you should be using square or curly brackets, for
2101example, if you say
2102
2103 $array = (1,2);
2104
2105when you should have said
2106
2107 $array = [1,2];
2108
2109The square brackets explicitly turn a list value into a scalar value,
2110while parentheses do not. So when a parenthesized list is evaluated in
2111a scalar context, the comma is treated like C's comma operator, which
2112throws away the left argument, which is not what you want. See
2113L<perlref> for more on this.
2114
a0d0e21e
LW
2115=item Warning: unable to close filehandle %s properly.
2116
2117(S) The implicit close() done by an open() got an error indication on the
2118close(0. This usually indicates your filesystem ran out of disk space.
2119
2120=item Warning: Use of "%s" without parens is ambiguous
2121
2122(S) You wrote a unary operator followed by something that looks like a
2123binary operator that could also have been interpreted as a term or
2124unary operator. For instance, if you know that the rand function
2125has a default argument of 1.0, and you write
2126
2127 rand + 5;
2128
2129you may THINK you wrote the same thing as
2130
2131 rand() + 5;
2132
2133but in actual fact, you got
2134
2135 rand(+5);
2136
2137So put in parens to say what you really mean.
2138
2139=item Write on closed filehandle
2140
2141(W) The filehandle you're writing to got itself closed sometime before now.
2142Check your logic flow.
2143
2144=item X outside of string
2145
2146(F) You had a pack template that specified a relative position before
2147the beginning of the string being unpacked. See L<perlfunc/pack>.
2148
2149=item x outside of string
2150
2151(F) You had a pack template that specified a relative position after
2152the end of the string being unpacked. See L<perlfunc/pack>.
2153
2154=item Xsub "%s" called in sort
2155
2156(F) The use of an external subroutine as a sort comparison is not yet supported.
2157
2158=item Xsub called in sort
2159
2160(F) The use of an external subroutine as a sort comparison is not yet supported.
2161
2162=item You can't use C<-l> on a filehandle
2163
2164(F) A filehandle represents an opened file, and when you opened the file it
2165already went past any symlink you are presumably trying to look for.
2166Use a filename instead.
2167
2168=item YOU HAVEN'T DISABLED SET-ID SCRIPTS IN THE KERNEL YET!
2169
2170(F) And you probably never will, since you probably don't have the
2171sources to your kernel, and your vendor probably doesn't give a rip
2172about what you want. Your best bet is to use the wrapsuid script in
2173the eg directory to put a setuid C wrapper around your script.
2174
2175=item You need to quote "%s"
2176
2177(W) You assigned a bareword as a signal handler name. Unfortunately, you
2178already have a subroutine of that name declared, which means that Perl 5
2179will try to call the subroutine when the assignment is executed, which is
2180probably not what you want. (If it IS what you want, put an & in front.)
2181
2182=item [gs]etsockopt() on closed fd
2183
2184(W) You tried to get or set a socket option on a closed socket.
2185Did you forget to check the return value of your socket() call?
2186See L<perlfunc/getsockopt>.
2187
2188=item \1 better written as $1
2189
2190(W) Outside of patterns, backreferences live on as variables. The use
2191of backslashes is grandfathered on the righthand side of a
2192substitution, but stylistically it's better to use the variable form
2193because other Perl programmers will expect it, and it works better
2194if there are more than 9 backreferences.
2195
748a9306
LW
2196=item '|' and '<' may not both be specified on command line
2197
2198(F) An error peculiar to VMS. Perl does its own command line redirection, and
2199found that STDIN was a pipe, and that you also tried to redirect STDIN using
2200'<'. Only one STDIN stream to a customer, please.
2201
2202=item '|' and '>' may not both be specified on command line
2203
2204(F) An error peculiar to VMS. Perl does its own command line redirection, and
2205thinks you tried to redirect stdout both to a file and into a pipe to another
2206command. You need to choose one or the other, though nothing's stopping you
2207from piping into a program or Perl script which 'splits' output into two
2208streams, such as
2209
2210 open(OUT,">$ARGV[0]") or die "Can't write to $ARGV[0]: $!";
2211 while (<STDIN>) {
2212 print;
2213 print OUT;
2214 }
2215 close OUT;
2216
a0d0e21e
LW
2217=back
2218