threads: make generic "Out of memory!" message more specific

Author: mauke

dist/threads/lib/threads.pm

@@ -5,9 +5,9 @@ use 5.008;
 use strict;
 use warnings;
 
-our $VERSION = '2.39';      # remember to update version in POD!
+our $VERSION = '2.40';      # remember to update version in POD!
 my $XS_VERSION = $VERSION;
-$VERSION = eval $VERSION;
+#$VERSION = eval $VERSION;
 
 # Verify this Perl supports threads
 require Config;
@@ -134,7 +134,7 @@ threads - Perl interpreter-based threads
 
 =head1 VERSION
 
-This document describes threads version 2.39
+This document describes threads version 2.40
 
 =head1 WARNING
 

dist/threads/threads.xs

@@ -796,7 +796,8 @@ S_ithread_create(
           int fd = PerlIO_fileno(Perl_error_log);
           if (fd >= 0) {
             /* If there's no error_log, we cannot scream about it missing. */
-            PERL_UNUSED_RESULT(PerlLIO_write(fd, PL_no_mem, strlen(PL_no_mem)));
+            static const char oomp[] = "Out of memory in perl:threads:ithread_create\n";
+            PERL_UNUSED_RESULT(PerlLIO_write(fd, oomp, sizeof oomp - 1));
           }
         }
         my_exit(1);