This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In makedef.pl, tidy up the MYMALLOC logic.
authorNicholas Clark <nick@ccl4.org>
Wed, 27 Jul 2011 13:36:35 +0000 (15:36 +0200)
committerNicholas Clark <nick@ccl4.org>
Mon, 1 Aug 2011 09:53:56 +0000 (11:53 +0200)
No need to call try_symbols() for PL_malloc_mutex, as it is found in
perlvars.h. Unlike PL_perlio_mutex, PL_malloc_mutex isn't listed in the
main !USE_ITHREADS skip list - perhaps it should be for consistency.

makedef.pl

index 0211694..688a304 100644 (file)
@@ -309,13 +309,8 @@ if ($define{'MYMALLOC'}) {
                    MallocCfg_ptr
                    MallocCfgP_ptr
                    ));
-    if ($define{'USE_ITHREADS'}) {
-       try_symbols(qw(
-                       PL_malloc_mutex
-                       ));
-    }
-    else {
-       ++$skip{PL_malloc_mutex};
+    unless ($define{USE_ITHREADS}) {
+       ++$skip{PL_malloc_mutex}
     }
 }
 else {