From: Chip Salzenberg <chip@atlantic.net>
Date: Thu, 28 Nov 1996 22:14:24 +0000 (+1200)
Subject: Diagnostic cleanup
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eff9c6e2f5bda63e4dc69fc15e237a9843954369;p=p5sagit%2Fp5-mst-13.2.git

Diagnostic cleanup
---

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