Diagnostic cleanup

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index 02fae7a..c3e5b93 100755 (executable)
--- 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 402761d..20f4fbd 100644 (file)
--- 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.