Document the "Cleanup skipped ..." warning.

p4raw-id: //depot/perl@15700

diff --git a/ext/threads/threads.pm b/ext/threads/threads.pm
index a925898..6fcd431 100755 (executable)
--- a/ext/threads/threads.pm
+++ b/ext/threads/threads.pm
@@ -128,6 +128,18 @@ quick way to get current thread id.
 
 =back
 
+=head1 WARNINGS
+
+=over 4
+
+=item Cleanup skipped %d active threads
+
+The main thread exited while there were still other threads running.
+This is not a good sign: you should either explicitly join the
+threads, or let the threads detach themselves, or somehow be certain
+that all the non-main threads have finished.
+
+=back
 
 =head1 TODO
 

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 08f342a..132d65e 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -1125,6 +1125,14 @@ and so on) and not for Unicode characters, so Perl behaved as if you meant
 If you actually want to pack Unicode codepoints, use the C<"U"> format
 instead.
 
+=item Cleanup skipped %d active threads
+
+(W) When using threaded Perl, the main thread exited while there were
+still other threads running.  This is not a good sign: you should either
+explicitly join the threads, or let the threads detach themselves, or
+somehow be certain that all the non-main threads have finished.  See
+L<threads>.
+
 =item close() on unopened filehandle %s
 
 (W unopened) You tried to close a filehandle that was never opened.