Make at least the thread count make sense.

p4raw-id: //depot/perl@19138

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index 00d18ba..0110724 100755 (executable)
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -160,7 +160,7 @@ Perl_ithread_hook(pTHX)
     int veto_cleanup = 0;
     MUTEX_LOCK(&create_destruct_mutex);
     if (aTHX == PL_curinterp && active_threads != 1) {
-       Perl_warn(aTHX_ "A thread exited while %" IVdf " other threads were still running",
+       Perl_warn(aTHX_ "A thread exited while %" IVdf " threads were running",
                                                (IV)active_threads);
        veto_cleanup = 1;
     }