diff options
| author | Chip Salzenberg <chip@atlantic.net> | 1996-11-29 10:14:24 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1996-11-30 05:31:00 +1200 |
| commit | eff9c6e2f5bda63e4dc69fc15e237a9843954369 (patch) | |
| tree | 40fb9241409b585f85ebd50484323f5ab59fb0a9 | |
| parent | 5a556d178903eb73ed2e240fee34fcfc607b2bb3 (diff) | |
| download | perl-eff9c6e2f5bda63e4dc69fc15e237a9843954369.tar.gz | |
Diagnostic cleanup
| -rwxr-xr-x | lib/diagnostics.pm | 3 | ||||
| -rw-r--r-- | pod/perldiag.pod | 20 |
2 files changed, 8 insertions, 15 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index 02fae7aa9f..c3e5b93f20 100755 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -334,7 +334,8 @@ EOFUNC $transmo .= " m{^\Q$header\E} && return 1;\n"; } - print STDERR "Already saw $header" if $msg{$header}; + print STDERR "$WHOAMI: Duplicate entry: \"$header\"\n" + if $msg{$header}; $msg{$header} = ''; } diff --git a/pod/perldiag.pod b/pod/perldiag.pod index 402761db6f..20f4fbd585 100644 --- a/pod/perldiag.pod +++ b/pod/perldiag.pod @@ -1480,9 +1480,12 @@ but realloc() wouldn't give it more memory, virtual or otherwise. =item Out of memory! (X|F) The malloc() function returned 0, indicating there was insufficient -remaining memory (or virtual memory) to satisfy the request. Depending -on the way perl was compiled it may use the contents of C<$^M> as an -emergency pool after die()ing with this message. In this case the +remaining memory (or virtual memory) to satisfy the request. + +The request was judged to be small, so the possibility to trap it +depends on the way perl was compiled. By default it is not trappable. +However, if compiled for this, Perl may use the contents of C<$^M> as +an emergency pool after die()ing with this message. In this case the error is trappable I<once>. =item Out of memory during request for %s @@ -1492,17 +1495,6 @@ remaining memory (or virtual memory) to satisfy the request. However, the request was judged large enough (compile-time default is 64K), so a possibility to shut down by trapping this error is granted. -=item Out of memory! - -(X|F) The malloc() function returned 0, indicating there was insufficient -remaining memory (or virtual memory) to satisfy the request. - -The request was judged to be small, so the possibility to trap it -depends on the way perl was compiled. By default it is not -trappable. However, if compiled for this, Perl may use the contents of -C<$^M> as an emergency pool after die()ing with this message. In this -case the error is trappable I<once>. - =item page overflow (W) A single call to write() produced more lines than can fit on a page. |